hoorn NIEUWS 


Jaareane 2«: 
nummer «€ 





10 PROGRAM ed 
PIM 528, AACE 
AALO, DE RE D CENSI IE 
CLEAR DEMDVE CH#E), 153 PLOT Ao CLENGS) tE 1 
EDR 1=1- TO LEN(S) 
DO AAC, @ IBSSRN DALEN ES) zE Ts 1) sARGRNDX 
BAL Is £ NCAALI DAAT, 1d 
UNTIL BALCEr 2) OU AND HET 1D AD EA jd Zi 
ACI 1) TO BEN Ir BILT, 2) STEE FMCL es 4) 
a OPT CIHRAL Es DENIAL Ie 299 =0 
NEXT-_J 
NEXT E 
KET = B SyHTAE Hi Print 
FOR I=LEN( VOIE end 
PAUSE 155 Ts? AAE 03 
FDR J=AACLs 0 TO AAC, 1} STEP AAI 2 
HTAE Hes PRINT 4T* PETRE IR IMT 96 
IF TJ RACr1735 BAC rk 
e PAUSE 15 :HTAE H+ rde 
zl NEXT-_J45P(JAAALI, 2 IT HTAR Hs PRINT H1OFDEL1L 
| NEXT Is 2#EL=#EDSVTAB 15 
END 
DATA “FRANS. VAN, HOESEL 
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Secretaris: 
A. Jonseiins. 


Voorzitter: 

Th. van Kemoen, 
Het Puyven 71. 
5672 RB Nuenen. 
Telf DAD — STILE 


26 SB Apet 


Giro S244295 
Beide t.n.v. 


Bank 
Zwot le. 


Redactie Acorn Nieuws? 
H. Reinders. 
Leeuwarderstraat 8 
9718 HX Groninsen. 
Teif 85@ — 125458 


Datasheets 

G. Akkermans, 

Wikke 1 

1275 BR Huizen. 
Teit B2152 - 52294, 


Ktokkensietersnoeve 


Telf DIS — AITEL4 


Pennirameester Acorn 


ACORN NIEUWSJUIT DE FEDERATIE 


Penn insmeester: 

6. Visser. 
Harinavliet JS1. 
2032 HL Zwotte, 
Teltf DIE — S4ES6EI. 


3 


doorn. 


935.52,87, 283 


zomputeréiub. 


Bandjesarchief: 

P. Grevelt. 
Swalmstraat 12 

1784 CP Den Helder 
Telt 2258 - 27960 


Drukwerkarchief: 
Ff, Monsato 
Biesbosch 155 
8052 VD Zwotle, 


Uiterste datum inteverina copy: 

NR 4. 25 = 5 — 1984. 

NRS. 27 = 7 — 1984, 

NRE. 24 — 8 - 13864. 

NR 7. Z8 — 3 — 1984. 

NRB. 26 -18 =- 1984, 

NR 1. 19 -12 — 1984, 

DE CLUB-WINKEL 

Geheusenkaarts 16 KByte extra in de ATOM fl. 50,08 
Schakelkaartt meerdere EPROM's op Axxx Cincl. 74LS1E5) fi. 53, 23 
Prosrammerkaart: zelf programmeren van EPROMs fl. XX, XX 
Herdruk RCORN NIEUWS 19825 97 pa, wetenswaardisheden fi. 6,02 
Jaargang 19835 totaat ruim 450 vas. tl. 50, 08 
ATOM-WARE deet 15 machinetaal op de ATOM 98 pas. ti. 6.02 
Besteltens 

Bis Uw regionale pennina=meester, 

Rechtstreeks bij de federatieve genninsmeester: aan fi, 5,00 extra 


waor porto-kosten 
Archiefdiensten: 
Voor bandjes, datas 
veriening kunt U ter 





ts, 


t bij de 





Uw resin iets ontbreken: dan hel 
was. 

Voor Wat de printen betreft 
aanserien de kaarsen 





EPROMS en alle andere 


DEN IPUW Worden SEtTekend 


vormen van dienst 
resionale archiefdiensten. Mocht in 
pt het resionalebestuur U verder op 


moet ens Seduld worden betracht 


0 PuroKkaart formaat. 


NHOUD [ACORN NIEUWS jPRG- | 


PAG, 2 + UIT DE FEDERATIE 
PAG. 2 : INHOUD 
PAG. & 7 DE HARDWARE COMMISSIE 
PAG. 5 : UIT DE REGIO-BLADEN 
HET FEDERATIEF DRUKWERK ARCHIEF. 
PAG. 6 : VAN DE REDAKTIE 
PAG. 8 : WAAR KUNNEN WE NAAR TUE 
PAG. S : OVER HET STATEMENT #EXEC 
PAG. 16 : DE DOS-CONTROLER. 
PAG. 11 3 FORTH. 
PAG. 15 : COMMANDO-TRACER. 
PAG. 16 7 MEER OVER INFOMASTER. 
PAG. 18 : GEZICHTS-BEDROG. 
PAG, 19 : BBC — BASIC OP DE ATDM, 
PAG. 28 : MASKEREN BIJ HET PRINTEN, 
PAG. 21 : SECTOREN LEZEN VAN DISK. 
PAG. 24 : HOE DE BITJES DE BAND AF EN DP GAAN. 
PAG. 38 : SORTEREN AAN DE LOPENDE BAND. 
PAG. 23 : SNAPPER MET JOY-STICKS. 
PRG. 3á : RAM OP #408 Md 
PAG. 35 : DE INTERPOLATOR, 
PAG. 37 : HEXDUMP WITH ASCII 
PAG. 38 : MAGISCH VIERKANT. 
PAG. 41 : S@ KOLOMS VDU. 
PAG. 43 t NIEUWE MICRILINE 85 KARAKTERS. 
PAG. 45 : ZEROPAGE REFERENCE SEARCH. 
PAG. 48 : 280K OP EEN SCHIJF. 
PRG. 49 : GELDVERDELEN. 
PAG. 58 : DATASTAND. 
PAG. 57 2 HARDWARE-FONDS. 
PAG. 58 : HEXIT 
PRG. 54 : EIGEN STATEMENTS MAKEN, 
PAG. 67 : P-BUGGIE" 
PAG. E8 : HET ASBK SYSTEEM. 
PAG. 75 : DE MINISCHAKEL-KAART. 
PRG. 88 : INTIKKEN EN RUNNEN MAAR. 
: ZOMBIE 
CALCULATOR. 
WOORDZOEK. 
DIBRBELSTEEN. 
BASICTEKST PRINTER. 
SPLITSCREEN. 


MATRIX VERMENIGVULDIGER. 
STAMENT CODE. 

SOFTPRINT BUFFER. 

DISK CDOPIEREN. 

PRIEM GETALLEN 


RCDRN NIEUWS Uitsave van Fed, Acorn Computerciuos N/B 
Verschiint 8 x ver saar. 





al 





ACORN NIEUWS HARDWARE COMMISSIE [RUDI VAN DRUNEN 


ka 


De folder van onze computer zei iets in de trand van? DE ACORN ATOM 
GROEIT MET U MEE! Dat is heel mooi: maar Wanneer we als club de 
hardware van onze computer zonder enis BELEID saan uitbreiden, 
lopen we onherroepelijk vast!!. Om hier een klein beetje zen bin 
in aan te brensen is er een landelisk HARDWARE GROEPJE van 4 
mensen ontstaan. We mebben hier nu eens met z'n drieen een 
zaterdasie aan opseotferd: om een tijn uit te zetten. In het Kort 
komt het hierop neer: 


1. De bus: We hebben met onze computer samen sen bussysteen 
gekocht, net zo als we een nosal afwijkende BASIC sekocht hebben, 
waar we allemaa? noe Steeds mee werken. DIT WORDT DOOR DE CLUB ALS 
STANDAARD GENOMEN, dus niks sedoe met ELEKTUUR bus: enz. 

2. Het BXXX- gebied: Dit sebied is in onze computer sereserveerd 
voor MEMORY-MAPPED 1/0: Hier dus seen RAM! 

De connector PLS: Deze blijft in de kast, en is in principe 
gereserveerd voor BIG BENNY. (B4XX) 

Er zat binnenkort een “PLS extension board” komen, dat buiten de 
kast nos eens een aantal PLB connectors uitdekodeerd. die dan op 
BSXK, BEXX, B7XX, en/of BEXX t/m BFXX komen: dus steeds 256 bytes 
per connector. Hier kunnen dan 1/0 zaken als 'sound=-senerator’, 
“A/Dsen D/A converters’; '88 kolomskaart', en andere I/O zaken 
Memorr-mapped aan sekoppeid warden. 

5. De toekomstise club kaarten zullen zo uitsevoerd worden dat ze 
zowel in een rack als in de computer kunnen. Verder zuilen ze 
voorzien worden van een DISAHLE schakelaar: en een breedte hebben 
van 19°, 

4. Publikatie in acorm nieuws van hardware zaken: Wanneer de 
redaktie een aantal artiketen toesezonden Krijgt, die hetzelfde 
doel bessen: Wordt het ontwerp met de meeste moselijkheden 





gepubliceerd, 

5. De sedachten voor toekomstise ontwerpen Saan in de vichtina van: 
= R5 Z232C seriezle interface 
— VDU kaart (8D koloms + ZSEKSIJ eraphics) Cin ontwikkeiing) 


- Printerinterface kaart + buffer 

- DOS print (voor elke drive) 

= Experimenteerprintjes: voor aan een PLS zonn 
uw 1/0 projecten op kunt bouwen 
Oat de interresse voor deze dinsen te peilen: ‘5 elders 10 dit mumer 
een ENBUETE-FORMULIER opsenomen, GELIEVE DIT IN TE ZENDEN ''* 





tor, waar u zetf 


Rudi van Orun 





[REG IORLADEN JACORN NIEUWS JPAG. 5 


» DE CURSOR nr ZJ (BRABANT) 

Jrafisch tekenen van é&zn draak? jJaarverslas 18952, Joystick 
aanpassingen: COS trauptes door afwijkende bandsnelheid: ACIA 
interface oe de PLB: Schuivende titels; Orseltse een vitbremdina 
van HARPSICHORD: 3D-elottVaatdoeksSchakelklokiDelta A/D converter 


* DRTACHECK nr & (DEN HAAG) 
ASBK-schakelsysteem 3 Catalans Van een disk in 5 risen or het 
scherm; Sopiraais Chain js Diskcas Schrijft een schijf naar de band: 


* DE STACKER mei (NOORD) 
statement TLOCK: MAKE voor het maken van een P-CHARME tabel: CLM 
voor het wissen van seheusenì P-ousi Statement codet COS deet2i 
IkByte op #40: Priemsetalten: 280k on een Schijt: varkentjes 
staaelen; orafisch srapje 


* ERROR 34 nrz CNOORD-HOLLAND) 
Speech synthesiser voor de ATOM: Coaputer jarsoni zestien bit 6582: 
Diverse wetenswaardisheden? 


* NEWSLETTER nr2 (BELGIE) 

&k ram oP AGD: Rack voor de ATOM: EXPANDIC ATOM BASIC oftewel 
statement Uitbreidings (een beetje achterhaald dus) 3 Een 
automatische schakelkaartt De ATOM-BASIC COMPILER.: overzicht ATOM 
ROM routiness De MCDR: Zeit Grafics ontwerpen: De 6522 VIR: De ATOM 
bussBestand orsanisatie 


|__rederatief Drukwerk Archief |____—_—— 


Het federatief drukwerk archief is sinde enige tijd in handen van 
Fernando Monsato, 

Nadat deze het archief heeft geordend kwam hij tot de conclusie dat 
zeker het laatste jaar nietg meer aan het archief was toegevoegd, 
omdat er niets meer werd toagestuurd door de leden. 

Het archief heeft uiteraard alleen zin indien het veelvuldig wordt 
aangevuld. Derhalve bij deze de oproep : 


Stuur alle van belang zijnde drukwerk-informatie aan : 
FP. Monsate — Biesbosch 153 — 8032 VD Zwolle 


Uiteraard kan via het regio drukwerk archief de benodigde infor- 
matie voor zover aanwezig hier worden opgevraagt. 


A. Jongeling 
gecretarian P.A.C.C. 





£ ACORN NIEUWS VON DE RED IE 


In met vorige nummer heeft U de redactionele toespraak moeten 
missen Wwesens Plaatssenrek, Op ge federatieve Vversadering [Ex 
Utrecht is afgesproken dat bij etke ACORN NIEUWS de prosrammatuur 
op aiskerves naar alle resio's zal worden sestuurd. Zodoende hoort 
bis deze ACORN NIEUWS, £ diskettes met proeratmatuur. Een overzicht 
van de tot nu toe verstuurde diskettes volet nut 





Szhiet 1 maart 1984, 
GED 1089 AFAF OAZE4 DOUZ P-CHARME voorbeeld. 





ADV. LDG AFAF BID54 BIZ P-CHARME voorbeeld. 

coPY CEEZ BVADD B4l Diverse capieer Pprooramma' s 
PATTST C2B2 BB7TDZ DAT AN, 1384 nr. 1 biz. ZB 

SOMTEST C2B2 OZ4BB B54 A.N. 1984 nr. 1 biz. SÌ 

MJCUS C2B2 O@118C 853 AN. 19EE nr. EB biz. 17 

DOSSOS 3020 U10ID VEB A.N. 1984 vr. Ì blz. SA 

BASICBE CZEE O03ED B7B A.N. 1984 nr. 1 plz. BE 

P-CHARM AG3D V100A MBS foutieve versie. 

SOSSRSZ CEEZ OZARE BIS A.N. 19824 nr. 1 biz. SS 

ASN CZHE BIESL BCD A.N. 1984 nr, 1 biz. 22 

RINDRDS CZB2 BOCEB BD7 A.N. 1924 ur. k biz, 18 

SECTDR CEHZ GOEBI DE4 wordt vervangen oe Juni Schijf. 
SRCMAKE 2 C2B2 O10AEB AFL A.N. 1985 ur. B biz. 7á 

DEE. 4 EDDS GIEEA 103 A.N. 1982 nr. E blz. SO 

TURTLE 90% DZ7DB 112 A.N. 198L nr. 5 biz, 11 

PANIC SCAB A1J44 139 tvoesevoesd spelletie 

PAINTER 3COB O1T44 14D toesevoesd speltletie 

HYPERFI CEBE OIEUA 161 toesevoerd Spelletje 

SOSOBJ2 1808 30838 174 A.N, 13984 nr. 1 biz. 53 

Schijf 1 mei 1984. 

SDRAWOB SCAD SCOB BLADS ABL A.N. 1984 nr. (obiect. > 
PALET 218% WIED BEBOB MIE AN. 1984 nr, {rekenins) 
SDRRWSR 2200 AFAF BSBSD B7E A.N. 1954 nr. source) 


(tekening). 
(text-data) 
object) 


Z-DPLOT 2200 2200 GEZOP BDE A.N. 1384 nr. 
SPRDATA 1C@D C2B2 GO4AAB 152 AN. 1984 nr. 
ASS-REB AEAD C2B2 BIED 155 A‚N. 1384 nr. 
P-CHARM ADZS C2B2 BIMA 14E vervalten versi 





Mee ee 


D 


i 
ZREFSEA 2908 AFAF @BECAB 15E A‚N. 1984 nr. E biz, &S 
ZEROREL 2900 AFAF JOSDS IEF A.N. 1384 nr. 1 biz. E4 
BUFFER 2308 AFAF BASDS 163 A.N. 1384 nr. FH biz, AZ 
INFOMAS E200 8208 GIDBA 1EF A‚N. 19864 nr. © biz. 1D 





Schijf 2 mei 1984. 

ASSEMSR 2308 AFAF GBISHE MBZ A‚N. 1984 nr. 
CASCAT 2399 C2B2 BB4FS OIS B‚N. 1984 nr. 
MOREDIR 2328 AFAF @OSEB WID A.N. 1934 nr. 
MEMEDIT 2980 CzBz BBEDE B47 AN. 1984 nr. 
PROMMER 2998 CiB2 GEAFF OSE A‚N. 1385 nc. 





GFILL AFAF OOFAI BEI PA‚N. 1984 nr. 
ATTACH AFAF @LID3 B71 A.N. 19E4 nr. 
EXTERN AFAF OBZCF B7E AN. 1384 nr. 
VLIST arar BEET: A77 AN. 1904 ur. 
DIS AFAF GOËLI U7R A‚N. 1984 nr. 
CODE AFAF UA4DB MEI A.N. 1984 niv. 
SHAPEPL C2BZ O1OBF DEE AN. 1984 nr. 
PLUTDEM CER BAOCSS OAT A‚,tl. 1984 vr. 








WAN DE REDA ORN NIEUWS [PG 
MEMORIE 2983 DOEEZ BA A.N. 1984 nr. 2 biz. 95 
SOUND 2998 AFAF OO7IE BAD A.N. 1984 nr. £ biz. 95 
DOOLHOF 2900 QESEE DBS A.N. 1984 nr. 2 biz. 97 
ATOMMAN 2583 21408 BBB teesevoesd spelletje 
TORPEDO 23908 BIEGE BCF tvesevoesd spelletje 
SDASTER 2380 D1508 BET toesevoesd spel letie 
PLAKOTO 2928 21109 GFE toesesvoesd spelietie 
BACKGAM 2990 B11AT 107 toesevoesd sPalletjë 
DAMMEN1 8208 BIG4B 119 toesevoesd spelletje 
DAMMEN2 2028 81220 133 toesevoead spelletde 











Schijf 1 juni 1984. 

sys-tkt 2580 AQ71 GIBIE UA A.N. 1984 nr. 
str-txt 2800 AD71 GADIS DIE A.N. 1984 ur. 
ASBK=i ADD ABOU DGOFFF Z4B AN. 1984 nr. 
ASEK-S 8290 C2B2 DIBC4 BSB AN. 1984 nr. 
FUNCTIE 82298 C2B2 GIEFH 077 A.N, 1984 nr. 
asb-box 2800 A271 US3CB DEE A‚N. 1984 nr. 
restxt 2888 AB71 @17FE GEZ A.N. 1384 nr. 
stattxt 2800 A271 @1278 GFA AN. 1984 nr. 
P-CH47E AOQD ALOZ TU1DUD IAD A.N. 1984 nr. 


EUA GA CA ACT UL U GA 





Schijt 2 suni 1984, 
PCH-172 AYE ALLE DIN AU A.N. 1984 nr. ZS biz. 67 








SECTOR GRCET DIE A‚N. 1984 nr. 3 biz. 21 
PYTHAGD GEUUR PIF tekening suUPerdran. 
SORT VEISi U7F A.N. 19834 ur. S biz. TO 
MATRIX VOSAB BES A.N. 1984 nr. 5 btz. 39 
B-PRINT 2 DEZA4 BEF G.N. 1384 nr. 5 biz. 9E 
CALCUL UEBIF BST AN. 1984 nr. ZE biz. 85 
INTERP GOSED A3C A.N. 1984 nr. 3 biz. 36 
TELMACH 2908 AFAF O@B3D4 A2 

SPLITSC 2568 AFAF GIGiB BAE A.N. 1984 nr. 5 biz. 87 
MAGVIE DBABA BBD A.N. 1984 nr. ZE biz. 38 
ZOMBIE BOD74 BCH A.N. 1984 nr. 5 biz. BĲ 
HEXIT PIETA BDE AN. 1984 nr. F blz. SE 
HEXDATA 8200 AFAF DOZGE BED A.N. 1984 nr. 5 biz. 58 
VDUSRAS 2990 AFAF BIZIC OFB A.N. 1984 nr. 5 biz. ál 
DATAST 2820 C2B2 @1853 124 AN. 1984 nr. 5 biz. SQ 
SORTSRC 29008 AFAF BU4TB IED A.N. 1984 nr. 5 biz. SQ 
VERDEEL 2900 AFAF GBO23B 142 A.N, 1984 nr. 3 biz. 49 


Op vele resinbijeenkomsten wordt reeds druk secopieerd: zadat een 
bezoekje daaraan waardevolle prosrammatuur opteverd. De schiiven 
die teruvaaestuurd worden aan de redactie worden benut voor de 
toetevering van COPY. Dus textfite's en prosrammatuur Kunt u 
inteveren bij Uw resio. 

Hartelijk dank ook voor de overwegend positieve reactie's dië Wij 
mochten ontvansen. Desene die ACORN NIEUWS te moeilijk vinden 
worden bij deze aansemoedied om zelf eens ietsin te sturen. 


De redaktie van ACORN NIEUWS. 
Rudy van Drunen. 

Frans van Hoese. 

Hans Marks. 

Henk Reinders. 





Fa 
2 JUNI 1984 
12. 8 UUR 


& JUNI 1984 





20. 0D UUR 
5 JUNI 1984 


20.08 UUR 





E JUNI 1984 
20.08 vur 


7 _ JUNI 1984 





20 UUR 
8 JUNI 1984 


2.38 UUR 





3 JUNI 1984 
18. 28 UUR 

15 JUNI 1984 
20.88 LUUR 

14 JUNI 1984 
13. 58 UUR 
13 JUNI 1984 
20.02 UUR 
20 JUNI 1984 


z8. 98 UUR 





3 JUNI 1984 
14.88 UUR 
<5 JUNI 1984 
20. BB VUR 


S JULI 1984 





28 UIR 


- 8 JACORN NIEUWE 





NGORD-H 
ARNHEM 
DELFT 
CENTRUM 
BRABANT 
DEN HAAG 
BELGIE 
TWENTE 
NOORD 
BRABANT 
NOORD 
ov/cELD 
ROTTERD 


BRABANT 


WEAR nUNNEN 


WE NAAF 


DE KOPEREN KNOOP 
LIMBURG VAN STIRUMSTRAAT 
AMSTERDAM. 





t.o, POSTGIRO 
VELPERWEG SE-A (Kkeider) 
ARNHEM, 


E-KAFE 
GEBOUW ELEKTRO TH WIJK 
DELFT. 


DE LANTAERN 
UTRECHTSESTRAATWEG & 
NIEUWEGEIN, 


GEBOUW B. R,‚A.N. 
HEVEL 7 
VORSTENBOSCH. 


EKXODUSKERK 
BERESTEINLAAN 265 
DEN HAAG. 


DXACO-CEPENBE RGCENTER 
BORSBEEKSE STEENWEG 45 
BOECHOUT ( pis HOVEN. 


MEPA-GEBOLUW 
WIERDENSESTRRAT 48 
ALMELO 


MUNSTERHOES 
MUSTERHEERD, 
GRONINGEN, 


DE WERFF 
V/D WERFFSTRAAT 
EINDHOVEN. 


MARTIN VAN VLISSINGEN, 
ACHTER DE GROTE KERK 25 
LEEUWARDEN. 


WIJKEENTRUM DE BOLDER, 
DOBBE B2 LWIJKCENTRUM A-LANDEN) 
ZWOLLE. 


SPEELTUINGEEDUW HET WESTEN 
SPAANSENEG 25 
ROTTERDAM-WEST, 


GEBOUW B. K.H. N. 
HEVEL 7 
VORSTENEIUSCH. 





ENT FRANS VON HOESEL ACORN NIEUWS PAG 
We vatten direkt met de deur in huist 

EXEC-files (voor DOS-sebruikers) Kunnen worden Se@ebruikt om een nooP 

typwerk te besparen. Deze files kunnen namelijk worden Sevutd met 

commando's die anders vanaf het toetsenbord insetikt zouden moeten 

worden. Een orobieem is hierbij echter het aanmaken van zo'n file, 

Het volgende erosramma vereenvoudiet die opsâve aanmerkelijk: 


[Sta 





18 PROGRAM CREATE EKEC-FILE 

28 

35 DIM F23, A2 

48 INPUT “FILENAME "$F 

58 IF NOT FINSF GOTO 408 

EB PRINT “FILE BESTAAT REEDS“! 

78 INPUT "OVERSCHRIJVEN (J/N) *$A 
SB IF ?A=CH"N" GOTO 40 

36 SHUT 8 

108 G=FOUT$F 

118 INPUT "TEXTPAGE "P 

12e DO 

130 SPUT Q, $P 

148 PRINT $P' 

158 P=P+Z+LEN P 
168 UNTIL P?-2)127 SREM EINDE TEKST ? 
178 SHUT QG 

1858 END 


Op reset SQ wordt secontroieerd of de filé reeds bestaat, door hem 
Conschuldie) te openen ats random input fite. Is de file-handier 
selijk aan nut: dan bestaat die file nos niet en wordt er 
gespronsen naar reset 198. Bovenstaand prosramta kan bv. setaden 
worden op #8200. Op #290D kan dan een (BASIC) tekst staan die de 
verschillende commando's bevat. Voorbeeld: 


18 #CAT 

25 #MON 

0 LIST 14,50 
48 /PRINT/P. / 
S® /GOSUB/GOS. / 
58 /RETURN/R. / 
7® LIST 18,50 


Dit is natuurlijk een onzinnis voorbeeld, maar dât mas de pret niet 
drukken. Het prosramma dat de EXEC-fi le maakt kan nu gestart worden 


door het ‘intikken van "CREATE". Het programma vraast dan om een 
fite-name, die U dan braaf intikt. Vervolsens Komt een iastise 
vraag waarme U Antwoardt met * #29D8". Het '‘prosramma’ dat staat op 


#2900 wordt dan zonder reselnummers op Schijf sezet,: waarna het kan 
worden uitsevoerd mett 


*EXEC fi te-name 


LET OP: altes wat normaal vanaf het toetsenbord zou worden 
inaelezen, Komt nu van schijf. Hierdoor werken INPUT-statements ook 
niet meer met het toetsenbord. Wet werkt het INKEY-statement omdat 
dit rechtstreeks het toetsenbord stant. Ats alte resels vit de file 
geweest zijn KOMT de promt weer terus en Kan weer VrEOljijK verder 
gespeeld worden. 

e.s. Werkt niet samen me CHARON, 





tuderen zien We Ot de cantroter e. 
van het tyoe BE71 de NPUTEr EEN  HOoP Werk Uit handen haalt. In 
het COS systeem wordt IK bitje daar de prusessur naar de band 
sestuurd. (zie elders ìmn dit hummer). In het DOS systeem seven we 
de controier een compleet byte en vertellen hem waar deze op de 
Schijf sezet moet worden. 

De schivf is namelijk s=formatteerd in 4@ tracks en 108 sectoren. 
Dit wil zessen dat op de Schijf 4B cirkels zijn sevormd en dat elke 
zirkel is onderverdeeld in 18 deettjes. Een strenge orde in het 
opbergen is dus sewenst. 

Behalve het Saven Kent de controler „os veel meer opdrachten. Deze 
opdrachten moeten vergezeld gaan van parameters. Dit KUn je 
vergelijken met zen Mremonis in de machinetaat welke vit t OPCHdE 
en 61 of 2 pperanden bestaat. Zo cok met de opdrachten voor de 
zontroier., Wanneer we de controier een DPedracht Tot saven seven 
benoren hierbij drie parameters. En welt 

a. op welke track moet er sesaved worden. 

b. op Welke sector moet besonnen worden te saven. 

haeveel secturen moeten er sesaved WOT d 





Wanneer we de DOS- 

















Een sector bestaat in het ATOM systeem vit 255 bytes. Wanneer de 
vpdracht met de baramtters aan de controter Zijn aansebaden, besint 
de Controller interrupts af te seven, Dit zijn NMI interruets, wat 
inhoud dat deze niet kunnen worden genegeerd. De controter gestt nu 


VOOr eik byte wat hij moet saven een interruet af. Ri ieder 
interruat wordt de interrupt routine afgehandeld waarbij een byte 
Uit het seheusen wordt sehaald en aan de controler wordt 


aangeboden. Dit saat net zolang door totdat het aanta! sectoren is 
afsewerkt. Tot slot wordt er nos een extra interrupt afseseven 
waarbij een vlassetje in een resister wordt ovpsezet. Indien er een 
comminucatie stoornis tussen drive en controler optreed of de drive 
de zaak riet kan verwerken wordt dit vliassetje ook opgezet. Dit 
resister wordt elke keer in de interupt routine getest. Wanneer 
deze dus sezet is moet wer seen data aan de controier worden 
aanseboden. Inplaats daarvan moet het resultaat resister worden 
bekeken. Indien hier alles OK is werdt het vlaggetje gezet omdat de 
controter Klaar was met zijn werk. Indien er iets tuos is staat in 
dit resister sen code welke wij beter als een DISK ERROR kennen. 
Het DISK ERROR nummer wordt dus door de controler seseven. Dit 
heeft dus niets te maken met een software-matise ERK welke 
verantwoordetijk is voor het normale error-nummer, 





Dit zijn de disk error codes. Een aantat zijn onsedetinieerd. 


9D altes is DK. 
@2 SCAN MET ERUAL 
B4 SCAN MET NOT EQUAL 
QE ————- 
G8 CLOCK ERROR 
OA LATE DMA 
BC ID CRC ERROR 
BE DATA CRC ERROR 
18 DRIVE NOT READY 
Z WRITE PROTECT 
14 TRACK ZERO NOT FOUND 
16 WRITJE FAULT 
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18 SECTOR NOT FOUND 
iA - 
1E — 
IE — 





De ATOM-DOS sebruikt maar een aantat intruktie's van de contrater. 
De eerste twee bits van de Opdracht seven aan voor welke drive de 
opdracht bestemd is. Dan nu de Sebruikte opdrachten met hub zode's 
voor drive 8: 

ES specificatie Commando 

2C read drive status. 

ZA write speriat Teaister. 

23 tormateren (alieen in format-erosramma) 

15 read data 

GB write data 





Niet sebruikte opdrachten zidnt 
23 seek command 

SD read speciat reaister. 

IB read id command 

17 read data en delete data 

OF write deleted data 

iF verify data and deleted data 
08 scan data 

84 scan data en deieted data 


Hierbij is uisesaan van het variable lensht/muiti record formaat: 
waarbis bij het formatteren kan worden aansessven hoe grouvt een 
sector moet zijn. Im het seval van ons DOS systeem is een sector 
ESE bytes. 

Het 128 bytes sìngle formaat kan dour ons niet. S@bruikt WOrden en 
daarom besteden We daar DoK verder seen aandacht aar. 











IK heb expres iv deze uiteenzetting Jultiie niet met adressen om de 
eren witten stinseren, Dat doen we een volgende maal. De 
reden hiervan is dat de DOS v het srootste deelt in zijn 
Proaramma aan het rekenen. Dit rekenen dee hiv aan de hand var 
Zijn katatosus. Hierin Staan atte sesevenS voor de DOS waarbij hy 
tot de siotsom Kan komen} hoeveel sectoren: op welke track en op 


weike sector besinnen. 


STUUR UW ENDWETE A.U.B. RETOUR 
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FORTH 


In deze atlevering van de Forth serie een praktisch programma: 
een decompiler. Een decompiler is een soort disassembler, welke 
echter geen machinetaal disassembleert maar een Forth woord 
dgecompileert. Dit laat zich het beste toelichten aan de hand van 
een klein voorbeeld programma. Stel U voor we definibren zelf een 
nieuw Forth woord genaamd: "TITLESCREEN" dat dienst doet als 
welkomstpagina bij een door ons geschreven programma. 


2 TITLESCREEN 
12 EMIT 
CR CR CR 
.” KEK WELCOME TO USERPROGRAM ERA" 
CR CR 
…" HIT A KEY TO CONTINUE" 
KEY DROP 


Na een aantal weken willen we nog eens bekijken hoe we het woord 
VITLESCREEN ook al weer gedefiniëerd hadden. Dat kan natuurlijk 
makkelijk als we een listing of iets dergelijks hebben. Is dit 
echter niet het geval dan kunnen we mooi gebruik maken van het 
hier gepresenteerde programma door in te typen: 


DECOMPIL TITLESCREEN<CR> 


en onderstaande listing verschijnt op het scherm. 


a 
_ 


E23 2) CA 
XXXK KXKX CL LIT ) 
XXKK ANKK 12 
XAKK KAXK EMIT 
XXKK KX CR 
XKNK KKK ER 
XXXL KXKK CR 
KNIK XAXK .” EEE WELCOME TO USERPROGRAM Kaa“ 
NXKK KANX CR 
KXKK KNK CR 
KAAK KAAK …* HIT A KEY TO CONTINUE” 
KXKK KXKX KEY 
NXAK AXXX DROP 
KAAK KAAK 55 


Ue OENE ARUNE 


Als algemene regel kunnen we aannemen: Alles wat in kolom Cal 
staat kunnen we, als het niet tussen ronde haken staat, 
letterìijk intoetsen om de detinitie te reconstrueren. Waarden 
die tussen haten staan moeten we verder bekijken en vervangen 
daor de bi jibeharende corditionsìs, zoals bi jv. IE. ..ELSE. . . THEN. 
De enige uitzondering hierop vormen de varmen { LIT } en t CLIT » 
deze bunnen ve gewoun weglaten omdat het systeem ze zelf 
genereert al5 we eer numerieke waarde intoetsen. 
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De betekenis van de verschillende kolommen in de decompiler 
listing as als volgt: 


[ij: serie nummer van de gedecompileerde code. 

{2}: adres van de code (HEX). 

[5]: hesadecimale representatie van de code, 

[4]: source code. (numerieke waarden worden weergegeven in het 
decimale stelsel. 





Ais U de decompiter intoetst in geen niet aangepast Forth systeem 
(zie ook de vorige afleveringen van deze serie) dient U DP en 
FENCE te wijzigen xn #8200 in plaats van #8C00, omdat de EDITOR 
en de DECOMPILER samen te groot zijn. 

Als het programma runt kunt U het onderbreken door CESC)> te 
toetsen. Als U hierna <CR> toetst zal de decompilatie afgebroken 
worden, elke andere toets zal een hervatting van de decompilatie 
inhouden. Door de ESC-toets in te houden krijgt U een soort 
single step mogelijkheid. 


Bij het gebruik van de decompiler zijn een aantal foutmeldingen 
mogelijk. Deze zijn in onderstaand lijstje samengevat. 


Foutmeldingen: 





9 : Geen ":" definitie. 

20 : Machine code functie. 

11 : Variable. 

12 : Constant. 

15 : User variable. 

14 : Vocabulary/<HUILDS, . DOES > 


Indien U een van deze meldingen krijgt wil dit zeggen dat de 
decompiler dit type definities niet aan kan. 


Bron: PCW ectoben 1983, 





BASE à : OFLAG O FLAG ! 3 
FORTH DEFINITIONS HEX : TAB RIGHT SPACES 3 
: CHECK : DSIG 
LCOMPILEJ © DUP CFA DUF à DECIMAL FIELD .R HEX TAB 
DUP 2087 = EK TERROR ; 
DUP 2D&B = C PERROR : UNSIG O FIELD D.R TAB ; 
DUP 2DAG = D ?ERROR 1 NPRINT 
DUP S17A = E 7ERROR NCODE & 1+ DUP 
2DUP 2 — = A PERKOR CR DSIG NCODE ! 
2D2F XOR 9 ERROR 5 
DROP 
d  LPRINT 
NPRINT 
O VARIAELE NCODE @ VARIABLE ROFS OVER 2e DUP UNSIG 
ú VARIAELE +OFS O VARIAELE FLAG ® DUP UNSIG 
4 CONSTANT FIELD 2 CONSTANT RIGHT DECIMAL … HEX 
2 +OFS +: 


OoFLAG 


 IDI 
DUP 2828 = IF 
<t CLUIT 2" 
LPRINT 
THEN 


: QUOTE 


2E EMIT 22 EMIT 20 EMIT 


COUNT TYPE 
22 EMIT 


ID2 
DUP Z1E4 = IF 
DVER 2+ DUP GUDTE 
C9 14+ +OFS +! 
GFLAG 
THEN 


: IDS 
DUP 2910 = IF 
. Do” 
QAFLAG 
THEN 


: IDA 

DUP 265A = 

IF .” LOOP” 

2 +OFS +! OFLAG 

ELSE DUP 2BEG = 
IF „” +LOOP" 
2 +OFS +! OFLAG 
THEN 

THEN 


1 SDS . 

DUP 288D = 

IF ." 4 BRANCH" LPRINT 
„ 

ELSE DUP 28A2 = 
IF." _( OBRANCH” 
LPRINT „“ 

THEN 

THEN 


: ID& 

DuP Z285R = 

IF ." ( CLIT >" 
NERINT OVER 24 
DUP UNSIG 
CD DUP FIELD 
‚R TAE DECIMAL 

HEX 1 +OFS +' 

“FLAG 

THEN 
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s IDE 

DUF ZODS = 

IF .” COMPILE” DROP 
NPRINT 2+ DUP DUP 
UNSIG 9 DUP 

UNSIG 2 +OFS +! 
1 FLAG ! 

THEN 


CREATE VALID 2A9 , 6520 , 
A528 , 3892 , 3E9 , 9285 , 
2BO , 93C6 ‚ BEB& , A2 , 


9281 , 3910 , 92C6 , 9245 
FFC9 , 2D0 „ 93C6 , EOEB , 
F020 , B12A , 1092 , 29ED , 
B&F , C594 , FOIA , MIE , 
A490 , BIJ , 2992 , 917F 
8890 , F7DQ , BEA& ‚ CACA , 
92A5 , 95 , IAS, 195 , 
1A9 , 214C „ A62B , 9BBE 
FBFO , 
SMUDGE 


2 NFA= DROP NFA OVER = 3} 


1 PRINT 
DUP DUP 
Cà 40 AND 
IF „” CCOMPILEI * 
THEN 284k = FLAG 9 
XOR X = 
iF .* 3 " DROP 
ELSE ID, 
THEN 
EJ 
[DJ 
DUP B er 


DECIMAL , HEX 
RE Ee 


: IDF 
FLAG à 
IF HERE VALID 
IF HERE LATEST [ 2955 , 1 
IF NFA= 
IF PRINT 
ELSE DROP [D} 
THEN 
ELSE DROP [DJ 
THEN 
ELSE [DI] 
THEN 
ELSE DROP 
THEN 
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2 LAST? 


2RS50 = DUP ® DUP UNSIG 
IF FLAG D AND 1 XOR ini 102 IDX 1D4 IDS 1D& 
THEN NGDP NOOP 
: IDE IDF 
+OFS @ 2+ BOFS +! 
2 DECOMPIL 9 LAST? 
BASE @ CURRENT 9 ZESC DUP 
CHECK IF DROP KEY D = 
DEFINITIONS THEN DR 
O NCDDE !‘ G BOFS ! UNTIL 
BEGIN DROP 
Q +OFS ! 2 FLAG ! CURRENT ! BASE * 
NPRINT 3 
DUP 
BOFS & + DUP DUP UNS1G BASE ! 
«u 
8 REM LIST 
18 


28 REM KOMMANDO-TRACER 24-35-54 

3@ REM ROB VAN DORT 

48 REM GEBRUIKT JOSBOX: 'LENK Z' MOET AANWEZIG ZIJN 
S@ REM HET KOMMANDO ACHTER DE REM OP DE EERSTE REGEL 
68 REM WORDT GETRACEERD 

7@ REM HOUDT precies HET FORMAAT VAN DE EERSTE REGEL BAN : 
EÙ REM REBELNR., SPATIE, REM, SPATIE: (KOMMANDO? 

98 

108 S=?18#256+EREM STARTADRES KOMMANDO NAAM 

118 DIM LLCD,PC-1) 

128 PRINT $21 

13 

148:LLO 

158 LDXA2 

16@:LLt 

178 LDA S,X;STA #10, X 

188 INX:CMPaIE: ENE LLt 

138 JMP #C2DS \interpreteer commando op #100 

2881 

PRINT $6$12 

$#190="STEP LLO, HCZAO" 

LINKKCEDS 

END" 





DE DISPLAY-PARAMETER (,#C2D9) VOORKOMT DAT DE INTERPRETER 
278 U EEN LANGE SAAIE LUS VOORSCHOTELT 
ZE MAAR KAN EVENTUEEL WEGGELATEN WORDEN 
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MEER INFOMASTER 


Nieuwe ontwikkelingen aan en wetenswaardisheder van het 
Info-master-terrein 


Naar aanieidins van vrasen van verschillende sebruikers is Arie 


Marchal weer in zijn toverdoos sedoken en heeft enkele aanvullingen 
voor het infomaster prosramma seschreven: 

1) overbrensen van een bestand: aangemaakt met INFDB2CL) naar 
Infomaster 


2) formatteren (scorriseren) van de scherm en/ot erinter-suteut 

ZE) het OPTELLEN van de waarde die een bepaaid item heeft in alte 
aanwezige records 

4) enkele hulpmiddelen 


1 Overbrensen van databestanden van INFOSB2(L) naar Infomaster 
Vroese sebruikers van eerdere versies van Infomaster: tw INFOBZ of 
INFOS2L. hebben wellicht de behoefte het databestand over te 
brensen naar Infomaster, zonder dit GPNIEUw helemaal met de hand te 
moeten invoeren. 

Doordat in InfoB2(L) VASTE seheusensesbieden werden Ssebruikt voor de 
"record! — en ‘ascii'-file: terwijl dit in Infomaster een 
aaneensestoten verschuivend blok isr moest een apart prosramma 
worden seschreven. 

Daartoe wordt Infomaster setadens 

= resel 714 en verder verwijderen 

— toevoesen reset 1088 - 1198 volsens prosramma onder no, 7222 
opsenomen in het drukwerkarchief 

— laad nu het bestand door 2 maal *LOAD“fitenaam" in casu voor de 
‘record'- en 'ascii'-file 

— run infomaster en seef bii de vraag KEUS? ) (escape) 

- type in G., 1080: Creturn) en wacht op de tekst 

= verplaats de ASCII file zoals wordt opseseven door het prosramma 
mby 'reloc’ of 'copy' uit de Josbox of een equivalent daarvan 

= laâd het oorspronkelijke Infomaster-prosramma. 





2 Het formatteren van de output 

Formatteren of vormseven van de output van Infomaster: is voor 
allerlei toepassingen interessant. Bijvoorbeeld: 

= items verdelen over meerdere resels 

= bij verdeling over meerdere regels de Ze reset laten inspringen 
— printen van etiketten ed 


Items verdeten over meerdere regels 

Wil men bv item 1 t/m á op de eerste reset en item 5 t/m BE op de 
tweede resel of atle items op een afzonderlijke resel, dan is dat 
moselijk door de navotsende resets aan het Infomaster-prosramma toe 
te voesen. 
reset 500 
reset 5035 
resel 2098 
raast S67 
Toevoesen 
resel ZEQ IFI=SP. "LEF 


toevoesen 4K=8 
5 wordt 6 

L.S wordt VALS 
tabel x weehalen 








ER INFOMASTER ARIE MARCHALL ACD NIEUW! Pa 
reser SESXIFPIJKIE:P. ;UI1=U?1+13CeD 
Bij keuze à uit het printmenu verschijnt nu tav ieder item ook de 
vraag 'LF'. Bij N saat alles zijn oude aans. Bij J verschisnt het 
desbetreffende item op een nieuws reset en de daarna voisende tapen 
daar sewzon achteraan. 





Insprinsen bij verdeling over meerdere resels 

Voor de overzichtelijkheid van tekst Kan het aantrekkelijk zijn oP 
de tweede reset van een record in te sprinsen, ofwel ersens in een 
resel een 'open-vlak' te creeeren. Dit Kan bereikt worden door biá 
de eerste aanmaak van de database een tweetal items toe te voegen 
die als 'rnaam' zen 'spatie' krijsen. 

Bij het opmaken van de output: Worden dan mbv ‘keuze 6' uit het 
printtenu, deze lese itens op de juiste plaats semanouvreerd en 
vervotaens bii ‘keuze 4’ uit het printmenu voorzien van de sewenste 
reseilenste: waarmee de lenste van het insprinsen Wordt bepaald. 
Natuurlijk heeft deze Werkwijze het nadeel dat bis het vullen van 
de database, deze ' tege! items verschijnen, maar met het speciale 
comitando kan daar semakkelijk ‘overheen’ sespronsen worden. 


Het printen van etiketten 

Als de voorgaande werkwijzen is sevlad: is het ook moseltijk om 
daadwerkelijk etiketten te erinten. Er kunnen immers een aantal 
'jese resets’ worden sesenereerd ca het juiste besinpunt voor het 
volgende record. 

Men voest dan mbv 'keuze 6' van ht printmenu een of meerdere lese 
items achter elkaar, en seeft met ‘keuze 4’ van het printmenu bid 
LF 3 

Voor desene die reeds Intomaster gebruikt is er dan nu het volsende 
probleem, om alsnoe Cieae) items aan bestaande bestanden toe te 
voesen. Geduld, er is al een ‘huleprosratmma door Arie semaakt: maar 
er zit nos een hardnekkige ‘bus’ in. Zodra deze eruit is wordt U 
seinformeerd. 





Het optellen van iteswaarden 

Vaor diegenen die infomaster toespassen op een masaziinbestand:, kan 
bet handie zijn de waarden die een bepaald item in atle records 
heeft, te kunnen optel ten. 

— verwijder reset 714 en volsende 

—= voes toe reset 714 t/m 754 volsens onderstaande listing 

714G0S. 698: IN. *" “WELK ITEMNUMMER OPTELLEN"SS:IFL.S (156, a 

724 J=VALSHIFD AIG. 714 

734X=Oi TERROG DOR=T+0?J 5 GOS. a 

TUUX=X+DI T=T+B U. TI SRRI 

754P." “TOTAAL "ENNJ" = "X'iG.a 





= RUN infomaster en kies “merse“ (7) 


Ofwel: 
Verwijder de keuze B vit infomaster, Kort een paar woorden wat inr 
seetf aan de “optetroutine“ een hoser veselnummer: dan kan deze 


routine nos net erbij sevoeegd werden U met bv. keuze 8 of 9) 
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ú. Enkele wetenswaardisheden: 


a. Verkort Infomasterprosramnma 








Vaar diesenen die een bestaand databestand willen “gebruiken", 
af daor anderen laten sebruiken (bv. alleen sorteren: selecteren: 
PDE KEN „en afdrukken) dus zander het bestaande te veranderen: 
Kunnen =Vt, Sebruik maken van een verkorte versie van Infomaster, 
dië precies past in 4: dus in een EPROM, 


Deze verkorte versie heeft voorasnos helaas het nadeet dat de 
“meras"-faciliteit ontbreekt 
Indien hiervoor belanssteltling bestaat zal ik deze versie in het 


bandiesarshief laten cprnemen. CH, T. > 


b. Ten behoeve van de echte "knutselaar" is in bet drukwerkarchief 
onder no. atie beschikbaar een overzicht van âltte in het 
infimasterprosramma Sebruikte Variabelen 
Cadres,naam omschrijvins,voorbeeid van inhoud ): dit als service 


van Arie voor diegenen die zelf willen steutelen aan het arooramma. 


Een reaktie van FRANK DE GROOT op het prsramma sezichtsbedros van 
Dhr, Dekker, 


18 REM GEZICHTSBEDROG 
20 REM FRANK DE GROOT 


20 GRMODiP, "" GEZICHTSBEDROG""" "tttrrrens 
68 MOVE 71,167:DRAW 185, 167 
5e P‚r DE VERTIKALE LIJMEN" " LOPEN EVENWIJDIG! * 


ED FOR X=58 TO 202 STEP TO 

78 MOVE X,405DRAW X, 159 

80 N. 

398 FOR X=50 TO 200 STEP EB 

149 FOR Yz4á5 TO 145 STEP 15 

118 MOVE (X-E):Y3DRAW (KHE), CY+1Z) 
128 N. 

1E N. 

148 FOR X=88 TO 200 STEP 60 

158 FORY=45 TO 145 STEP 15 

168 MOVELK+E) , Y5DRAW (X-E), CY+12) 
178 N. 

1EB N. 

19 END 


EB BASIC RONALD Bf 


BBG - BASIG 


Zoais U wellicht weet: is er voor de Aton een BBU-DASIC-kaart 
beschikbaar, waarmee de Atom BBC-Basic kan praten. Let wel: De Atom 
wordt niet veranderd in sen BBC, alteen de BBC-Basic is 
seimolementeerd. BBC-Basic lijkt veel meer op Microsoft Basic dan 
Rtom Basic (ook met P-CHARME erin), maar bevat tevens een aantal! 
vitbreidinsen t.o.v. Microsoft Basic, zoals procedures en functies 
met tocate variabelen. Over variabelen sesproken: deze tosen 
Wittekeurige lengte hebbent we hebben dus de beschikking over länse 
varsabels-namen. Verder bevat BBC-Basic een ingebouwde met Basic 
merebare assembler: net als in Atom Basic: maar deze assembler Sr 


doordat B&C-Basic lanse variabelen teelaat: symbotisch, Verder kent 
BBC-Basic de ? en ! operatoren: het werken met hex getalten, 
meerdimensionale array’ s. Microsoft-achtise strinshandl ina 
„nz..enz.. te veel om oe deze piek op te noemen. 

Nos afsezien van de prijs ( +F.300,-) heeft deze BBE-kaart een 
aantal nadelen: zoais de zeer onsuynstiee plaatsings in de Kast: 
waardoor wen eventuele seheusen- of schakelkaart en sestapelde 
RAM's verwijderd moeten worden. 

Maar deze kaart biedt wel een zeer (UKEr complete, uitsebreide an 


sneile CSnetter dan Atom Basic) Basic interpreter. Toch vinden wij 
de voordelen mier opwegen tesen de nadelen. 

Maar ... het moet toch moselijk Zijn de inhoud van de ROM's op deze 
kaart (verkresen met de medewerking van een BEC-kaart-bezitter) te 
kopieren en in het RAM-seheusen van de Atom in te laden? Dan kan ik 
toch BERC-Basic sebruiken? 

In erincige iuist: maar oe het BBC-kaartje wordt in BBC-mode de 
sehete memory-mao door etkaar sesonid. Op het kaartje zit o.a. ZEK 
ROM 1EK © BBC-Basic interpreter en 4K operatins system (ze 

MOS-ROM). Deze laatste UK bevindt zich op adres #FOOO-HFFFF en de 
eerste IEK bevindt zich op #E0DD-#BFFF. Dok wordt het RAM-seheusen 
verolaatst: beeldscherm naar  #4908-#57FF, text=ruimte naar 
#UEAD-HIEFF, werksebieden naar #020D-#07FF. De 1/0 bevindt zich nu 
op #7000-H7FFF: PPICB255) op #7000 en VIACES2E) op #78D0. U ziet: 
dit tukt niet zomaar vanzelf. 

Om toch BEC-Basic te draaien moet je dus de complete 20K objectcode 
vit de ROM's met de hand saan relecaten naar Cin een 'normale’ 
vitsebreide Atom) bruikbare adressen. Dit is een sisantisch karwei. 
Niet alleen de absotute adressen (deze Zin, hoewel talrijk noa het 
semakkeltijkst aan te passen) maar ook tabellen met adressen: 
besinwaarden van pointers enz. moeten worden aansepast. Indien LW 
niet ziet wat de problemen zijn: raad ik U aan bv. de Josbox te 
retpcaten naar bv. #7908. De Josbox is 'stechts’ 4K: terwijl we 
hier spreken ovar 20K. 

Na tans intern beraad hebben we toch de knoop doorgehakt om wel te 
saan vrelocaten en op dit moment hebben Will Verhoeven (nu in 
Amerika) en ondersetekende de BBC-Basic op papier seretocated. 

Wat betreft de seheusenindeting en de benodisde hardware het 
volsende: 

-De IEK BBU-Basic interpreter komt op #4BOD-H7FFF, bv. in de 
seheusenkaart. 

=De 4K MOS-ROM komt op #ABED-HAFFF. bv. in RAM of in EPROM on een 
Schakelkaart of gewoon in de ICZá-voet in EPROM. 

—Het BEC-werksebied #40D-REUD kont nu vanat #2080. Hier moet U dus 
RAM hebben. (bv. door stapelen te verkrijsen). 
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-Verder moet U uiteraard op #ICOO-#40E0 RAM hebben (bv. staselen). 
Samensevat: minimaal nodis: RAM op #2008-R7FFF an liefst RAM vo 
HAXKX, Verder uiteraard een VIA (maar die had U toch ai) voor het 
TIME-statement. 

Het eisenlijke BEC-Basic erosramma kan dan op #2408-HTFFF en/of op 
#E290-#I7FF (of #IFFF bij sestapeld hooa seneuaen), Dit lijkt niet 
zo gek veel, maar bedenk dat de opstas van proeramma’s zeer 
efficient en compact saat t.b.v. tokens. Trouwens: GOK Met het 
BBC-kaartse kunt U seen sebruik maken van Uw geheugenkaart: en een 
BBC-B computer heeft in MODE @ ook nes maar BK RAM vrij voor 
prosramma' s. 

Het voordeel van het op deze wijze beschikbaar maken van RBC-Basic 
boven de aanschaf van een BBC-kaart is dat dit sratis is: en (veel 
belangrijker) dat in een Klap een gsroot aantal mensen BBC-Basic 
kunnen draaien. 

Tijdens het reiocaten zijn we een sroot aantal bytes uit de 
catesorie 'twijtelseval’ teaensekomen: waarvan we niet weten wat 
die betekenen en af we die dus moeten aanpassen of niet. Dit zat 
nos eer hete vitzoekerij worden. Op dit moment ben ik bezis met het 
invoeren van alie wijzisinsen. Dit zijn @r nosat wat. Mocht dit 
monniken-eroject ooit nos af Komen, dan hoort U daar zeker nas van. 
Wilt U meer weten: neem dan even contact met mij oP. 


In COBOL kan men numeriek opsemaakte velden definieren: wat 
vooral nuttis is voor het printen van seltdsbedraaen. De 
Basic-subroutine Cr. 100-180) geeft Gok bijna al deze 
mogelijkheden. 

In $M wordt de definitie van Het veld seplaatst: bijv. 





bb.bb9,33", De meest linkse positie is voor het tekens “g* 
betekent: op deze positie komt altijd een cijters "B" betekent: 
alleen zinvolle cijters worden hier seplaatst. Speciaie 


tekensworden alleen oversenomen als ze tussen cijfers komen 
testaan. Het eerste teken ordt altijd oversenomen. Het resultaat 
komt in $P, 


SREM PETER EHRLICH 
1BDIMMS2, P32 
2OIN. "GEEF MASKER" $M 
SOIN. "GEEF GETAL"G 
40G0S. 180; P, * $P' ;G. 29 
1OOL=LEN CM) 
120P?LaiSiLel-1;P?Le32 
13DIF GLB PIL =CH"-r 
140G=ABS (G) 
1S@L=l-13IF Le-1sR 
1EDIF M?L=CH"3"ORCG) BAND ML=CH"B"); PIL=GK1D+4B; G=G/ 1016. 150 
178IF G=® IF M?CL-1) OCH" F‚K=OTO L:P?K=S2iN, sL=0 
18GP?L=M?L5G. 15 
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SECTOR 


Onderstaand programma leest zen schijf onafhankelijk van de 
catalosus. Bij het opstarten Wordt het tracknummer gevraagd. 
Aansezin een schijf 48 tracks heeft moet een setat tussen de 0 en 
GB worden insevoerd. Andere waarden worden niet seaccesteerd 
Het volgende seseven betreft het sector nummer. Aansezien een track 
18 sectoren heeft moet een getat tussen de @ en 19 worden 
opseseven. Andere setallen worden niet seaccepteerd. 

Daarna komt de inhoud van de betreffende sector op het scherm. Niet 
ASCII waarden worden als een punt senoteerd. Een BASIC-prosramma 
wordt dan ook ais een listins seprint wat de herkenbaarheid 
bevorderde. 

Op de dan volgende vraas kan men met "J" antwoorden om de volgende 
sectoren GOK nos te bekijken. 


Indien men seen sectoren meer wil bekijken dan volst oP het 
antwoord "N" de vraas of men een DISAS van de betreefende sector 
wil zien. Hiertoe is MIRACLE van Frans van Hoese) er aan vast 


geplakt. Indien men seen DISAS wit hebben volst de vraas of men de 
sector naar het sehevaen wil hebben, Indien men met “J* antwoordt 
worden 57 sectaren naar het seheusen seschreven oft tewel van #2900 
t/m #8290. Deze 57 sectoren worden in rege! 509 bepaald en kunnen 
Sewiizisd worden naar setans men seheusen heeft. Met behuie van dit 
praramma Kan men dus file's van een schijf “redden” waarvan de 
Catatos in de vernietins iS. 


1BREM SECTOR-CONTROLE 
ZOREM HENK REINDERS 
ZOREM GRONINGEN 
SBDIMCC2E, DD2O, LL2Os TTL 3F. A=BTOZAI LL A= 1 ; CCA=-1 1 DDA=- LEN. 
EOTTB=-L ITT tels Vek7OEP, SZ FFORA=GTOLs P=#25001 CL 
start hoofd-pPrermma. 
78: DDLOIJSRHE22S 
EL DADHOL : STAHF 1 aantal sectoren oP 1. 
IOISRHF7D1 + J 
198? P=#0C; P=P+1 
118$P="START-TRACK" ;P=P+L, Pr ?P=HERs Pepel 
128JSRCCiD: STAHEC track-nummer. 
158CMPS#Z8 : BCSDD 10 
148: DD11 JSRHFT7D1 5 J 
150! P=#AROD: PeP+24 KP="START-BECTOR" ; P=PAL. Pi P=REArP=P+1G CG 





1EBISRCC1O:STAKED sectoer nummer. 

161CMPA#BA: BCSDD1 1 

17AJMPDDE 

188:DDt INCHED volsende sector. 
1S9BLDAHED:CMPSIG:BNEDDS test op maximum aantat sectoren. 
ZBBINCHEC valsende track. 


EIOLDAHEC:CMPO#ZEIBEUDDI® test op maximum aantal sectoren. 
Z20LDAAHOZ: STARHED aantal tracks OP DO. 

250: DDEISRHFFED 

Z4BISRCES print een sector 

2SOJSRHFFED: JSRHFID1 3} 

ZEBSP=" TRACK"; PaP+l. P3 ?P=HEArP=P+13 Ci 

27OLDAREC: JSRHFEDZ Print tracknummer, 

ZEGISRHF TDI ; A 
GAEP=" SECTOR" 5 P=PalL. 





P=HEASP=Pr15 LC 
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ZOULDALEDS JSRWFEO2IJSRKFFED print sectornuamer, 

318:DDISJSRKF7D1 t JI 

S28$P="NOG EEN SECTOR ZIEN? "sP=P+L, P3 2P=HEAIP=P+ IGE 

338: DDOJSRHFFEEs CMP&É4As BEGDD 1 

34 BCMPAR4E + BNEDDD 

SSAJSRHFFED: JSRHF7D 1 ;J 

SEB$P=“DISAS ?"}PaP+l. Ps IP=HEAiP=P+1G CE 

3703 DDI 2JSRAFFEEICMPAH4AI BEGDD14 

SEBCMPARLE $ BNEDD 12 

SIUBEEDDIS 

4B@:DD14JSRCCAE disas met miracie 

4&18JMPDDIS 

420: DDISJSRHFFEDS JSRHF7D1 ; J 

430SP="NAAR GEHEUGEN 7" 3PeP+l. Ps 2P=#EAFP=P+1GE 

44E DDSJSRHFFEG ; CMPA#4A: BEGDDE 

4SOCMPOKGE ; BNEDDS 

&EORTS einde hoofd-srooramma. 
Schrijf 57 sectoren naar seneusen. 

478: DDELDYAHFF;STYRCS lase byte laadt adres. 

4BBINY:STY#CC minder dan Bák. 

430L DAAH28: STAKCA hose byte laad-adres. 

SOL DAAKS7 3 STAKCB aantai sectoren. 


S1OJSRHE7SB motor aan. 
520: DD7 JSR#EB16; BEGDDS 
538: DDIJSRKEB4E 


S4OLDADHSIIJSRKHEJED zeef laadopdracht. 
SSOJSRHE7AG ; BMEDDS9 controle van het resuittaat. 


SEOJSRHEBSI 
S7OLDAKEC:CMPSIS;BNEDD7 controte op opverschrijden aantal tracks. 
588: DDERTS einde hoofd-prosramma. 


schrijf de sector inhoud op scherm. 
688: CCA LDADKE 1 JSRHFESS 
618JSRIE75B 
628: CCIJSRCCS: JSRHE225 
55BLDAARASS STAHT21 kolom indelins op B 


648LDRIK2E 5 STAKBL 

6SOLDYINAES STYHE2 

658: CC2LDACHBB) , Y 

670INY3 BEUCCS test of alles seprint is, 
SBBCMPAHGD ; BEGCCE test op return 

6SBCMPES1 1 BECCCA test op kleiner dan ASCCI. 
TOUCHPAHEB 1 BESCC4 test op sroter dan ASCII 
T1OJSRHFES2 schrijf ASCCI waarde. 
728JMPCC2 : 


printen van een reseinummer. 
7358: CCEJSRIFFED 
7UBLDACHEB), Y5STAKZS nose byte resetnummer naar basic-stac. 
750INY: BERCCS test of aites geprint is. 
75OLDA(HBE),YISTAHIE lase byte reselnummer naar basic-stack 
77OINY:BERCCES ST Y#DI 
78BLDAAHDE : STANL4 ; STAHZ7 5 STAH4S 
T3BJSRECS8I printen resel nummer. 
SOBLDY#OSt BEMCCH 
B1OCPYA1 :BNECC2 

printen van een ",*“ voor niet ASCCI waarde. 
€28: CC4LDRANZE 
BEEIJSRHFES2 
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B4BJMPCC2 

850:CCIRTS 
sector laden op #2800. 

SEB: CCSJSRHE7 32 

878LDAAHZ7 ; STAF 7 

BEBLDAAHSS ; JSRHE7ED 

BABISRHETAAFBNECCS 

S0BRTS 
tezen van toesten-bOrd. 

910: CCLBISRHCDAS 

SEBLDAHBS: PHA 

SIELDAHDE ; PHA F LDARZE ; PHA 

S4AOLDADHAO: STAHOS 

SSOLDYAKAI : STYHOE 

SEBDEY : JSRHCSLA 

37DPLA: STA#DE ; PLA: STAHAE 

SSOPLA: STA#US 

SIALDAKS2: RTS 
Miracte een disas prooramma. 

1908: CC1 iLDAAHDOD: STAH7ZI START 2 
181BLDYAHZEISTYH7 1 

122BINYsSTY#72 

16Z0LDAAHBE 

104DIJSRHFESS 3 JSRHFFED 
1058:LLBISRLL 5 BNELLO 

1068: LLILDYARD2 

1875: LL2LDACH7D) + YH STAHEE, Y5 DEV: EPLLLE 
102B: LLZINY;STY#F;LDXSH4O 

1098: LL&LDAREE + CMPAHDA + BEOLLE; SEC; SBCHF 1 
1100SBCHFZ10, Xs BNELLE: STAHES: LDYHFZSD, X 
1118: LLSRORA;s RORHGS: DEY ; BNELLSSLDY&F 5 ANDHFIDS: Y- 
BNELL7sLDAHFIEG, Ys ANDHESSBNELL7 
:LLEDEX; BNELL4SICPYOHES BNELLSSLDYERDILDXORLI :STYHE 
1140:LL7LDAHF ZOZ, Y7CMPOHÉF ; BNELLS: LDAOHT 
115@:LLB:ANDA#F; STA#GII STAHOS STXHEAILDKOVs JSRÈF7F 1 
11EBLDKEVILDYORG 
117@:LLSLDACH7D) , Yi JSRHF7FAs JSRHFAOE: BNELL 105 PLAS PLA 
1188:LLIDDECHEI: BPLLLS 
1130LDYHEG: JSRHFISAILDKHEAILDAKF LIL, XF STAHEAILDAEF LSG, X 
1208STAHES:LDYOES 
1atOsLi 11 DOES 
1Z20rLL12ROLHEG ; ROLHES: ROLAF DEX s BNELL 125 ANDAHLF + CLC 
1Z30ADCOHZF + JSRAFFFA4:DEY s BNELLA 1 
1Z40OISRHFTFDiILDYORE:LDXHF;LDATTO, X3 STAKES 
1250:LLiSCPYDEEGSENELLIS3TXASBNELL IS 
1ZE0LDA#E7 :BPLLL14SDEX 
127B:LL14CLCHADEVI STARE ; TKAGADCV+1 ; STAHEE 
1Z80LDXE#EIBNELLIE 
1299: LL ISL DX#7 BEGLLIE 
1508: LL 1ELDABH2E 5 JSREFFFA 
1Z1@:LLi7LDAKEE, Xi JSRHFEOZ: DEX s ENELL 17 
i520:LL1BASL#EI: BESLI 19: LDATTE, Ys JSRHFFES 
1330:LLISDEXSDEYs BPLLLEEG JMPRCSOA GIF TTO =P S=P 
154! P=tEOFFFEFFS Pl be87FIEFFCIP!B=#67B1CFFOGP! 1 

ZSOP=P+ISITT Cid =Ps 'PatDiP!1=#292C5I41 IP! Set 
ASEGON. :P. $5$1 SSEMBLER FROM "&T”" TO “&P* 
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CASSETTE - OPERATING - SYSTEM 


Dit. verhaal! eorobeert duidelijk te maken moe binnen het Aton 
Cassette Operating System de bits uit een byte ap de band Komen. Ir 
een volsend verhaal zal ik dan duidelijk maken hoe ze er weer af 
kamer, 

De Atom gebruikt vanuit alle routines die iets op tape zetten de 
zoseheten OSBPUT, Dus bijvoorbeeld vanuit PUT,;BPUT,SPUT maar cok 
SAVE en #SAVE, 

De manuas leert ons het volgende: 

OSBPUT Put byte 

This subroutine outputs the byte in the atcumulator to a seaventiat 
write fite, Resisters X and Yare saved. In the ATOM operatins 
system interrupts are disabled durins OSBPUT but interrupt status 


is restored on exit. In the Disk Operating System the file's 
seavential fiiepointer witt be incremented after the byte has been 
saved. 


In het séhevasen vinden we het volsende: 


OSBPUT 
#FFDI WSC HIE #22 JMPCHB21E) 


BPTVEC 
#O21E H#7C HFC 


#FC7C #55 HEC STXEEC 
BFC7E HE4 HCT STY&C5 
#FCEO #05 PHP 

#FCB1 #75 SEI 

#FCEZ #48 PHA 

#FCSE #20 HAI LFC JSRHFC2E 
#FCSE HES HCG STAKCE 
#FCES #20 HDE HFC JSRHFCDE 
#FCEB #AI HIA LDAS#BA LF 
KFCED HBS HCI STA&C1 
“*FCEF #16 ELC 

“FCB HIJ #OA BEC#FCSC 
SFCIE #A2 #87 LDXa#07 BEL 


KFC34 HEE HO2 HEB STXHBUOZ 
KFCI7 #20 HDA HEC JSRHFCDA 





#FCSA #30 MIZ BMI #FCAF 

HFCIC HAD #24 LDYa#Bá EOT 1 
KFCSE #A9 #04 LDRAA#B4 EOT 1 
HFCAO HED HZ KEG STAHBOBZ 1 
KFCAS #23 #DE HFC JSRHFCDE 3 
#ECAE HEE #02 HBO INCHEOOZ 5 
KFCA3 HED HDS HFC JSRHFCDE Eî 
KFCAC #88 DEY s 
#ECAD #D@ HEF BNE4FCSE 

KECAF #2 SEC 

HFCBO HEE #CO ROR&CB 

WFCB2 #CE KC1 DEC&C 1 

KFCE4 #DB #DA ENERFCOD 

WFCBE #R4 #C3 LDYRC3 

PFCBE H#RE HEC LDXHEC 

WFCEA #E3 PLA 


HECEE WES PiP 
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#FCBC #69 RTS EE van binwankomeÂ 
HFCDS #AZ #22 LDX9#25 NUL AL 
#FCDA #A3 #10 LDRAHID DLE Eogeur 1 
HECDC #20 #OZ HRO BITHEODZ moment van verlaten 
HFCDF #FO &FB BED#FCDC 

BECEL HZC #22 #EO BITHBOUZ 

#FCEG #&DÖ #FB BNE#FCTE 1 

WFCEG #&CA DEX 

#FCE7 #1D #FE BPL#FCDC 

#FCES #5D RTS 

#FC23 #48 PHA 

HFC24 #18 ELC 

HFC2S #65 #DC ADC#DE 

#FC27 #85 #DC STA#DC 

#FC29 HEB PLA 

#FC2A #EG RTS 


De put byte routine besint op HBFFDI met een indirecte sprons via 
216 naar Crormaal) H#FC7C. Hier worden eerst het XY en 
statusresister opseborsen. Daarna wordt de interruptf!aa geset. Het 
sevals hiervan is dat de 5502 een interruotreauest negeert. Dit is 
nodig omdat het naar de band seschreven byte verminkt ZOU Worden 
ais de processor hatverwese het schrijven even 'wes' moet om een 
interrver af te handelen. Interrupts zijn hier dus uit den boze. 

Let op: Non Maskabie Interrupts;die niet asedisabl#d Kunnen 
worden:mosen dus niet voorkomen.) 

Nu wordt de Accu op de stack opseborsen en votst er een subroutine 
aanroep. Deze subroutine: die we op #FC23 vinden telt de Accu op bis 
de geheusenplaats #DC. Dit is de chezksum die de Atom sebruikt om 
bij het terusiezen te controteren of er wel correct selezen Wordt, 

Als we terug komen van deze SuUbrTOUtInE Zien we dat de Ea 
opseborsen Wordt in KCO en er wordt ormiddelijk wear etn SUbroutine 
aanseroepen. Deze staat op #FCDS. Hierin wordt eerst het X resister 
nul semaakt en de Accu setaden met zestien. Nu volet en 
"BIT&B2DE'. De Zerotias wordt dan nul als bit vier van #B202 (PC4) 
aok nul is. (En wen ats PC4 een is.) Op PCA staat zoals uit fisuur 
G blijkt zen 2600 Hz. bioksoif vit IC44. De Atom wacht nu tot PCA 
een is. Nu volsen twee instructies die net zo werken maar nu wordt 
er gewacht tet PC4 nul is. De vijf instructies van #FCDA tot en met 
&FCE4 zorsen er dus voor dat er op een hoos-laas oversans op PC4 
aswacht wordt. (Zie figuur 1) Het X resister werdt ny afselaasd en 
omdat X nut Was: Wordt er niet sesPprornrsen en is de subroutine 
afselopPer. 

We gaan mu verder op #FCER. Gebheusenplaats #C1 wordt nu tien 
gemaakt. Dit is het aantal bits dat seschreven gaat worden 
Namelijk een Sstartbitsacht databits en zen stopbit, Nu volst een 
*CLC' dit omdat het startbit nul moet zijn. Op &FC30 kunnen we nu 
athanketijk van de Cerryftas twee kanten op. HFCSC is de routine 
die zen nulbit op de band Schrijft en SFC92 schrijft een zenbit 
Het startbit dat er riu seschreven Wordt seeft aan dat hier een byte 
besint. Waarom dat nodis is zien we straks. Zowel #FCSC ats #FC92 
komen ra het schrijven van het bit uit op H#FCAF. Hier wordt de 
Carry seset en #CO wardt een maal rechtsom geroteerd. Er wordt dus 
zen een links inseschoven en het rechter bit Komt in de Carryfias, 
Dit is het volsende bit dat seschreven moet worden. Nu maken we #C1 
aen laser en als er neg gern tien bits sesthreven Zijn sprinsen we 
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terus naar WFCSZ. Doordat er telkens een een links ingeschoven 
wordt ‚Ss het tiende seschreven bit altijd een een. Dit is het 


stoobit en het heeft seen vaste lenste, (Nadat de minimate lenste 
bereikt is blijft het gewoon staan.) Vandaar dat een startbit nodig 
ig om het besin var een byte aan te seven. Als nu tien bits op de 
band seschreven zijn is OSBPUT klaar, Alle resisters worden weer 
uPgshaald en er voist een 'RTS', 

Rest ens nos het schrijven van de bits te bekijken. Het schrijven 
van een eenbit vinden we op #FC92, Het X resister wordt seladen met 
zeven en dit wordt tevens naar PC seschreven. Dat maakt PC@ en PC1 
een. In figuur @ zien we dat nu de 2608 Hz. blukeoif seinverteerd 
Wordt doorsetaten. Er votst nu een aanroep van de subroutine op 
#FCDA,dit is de eerder beschreven #FCDS zonder dat het X register 
Tv | wordt setaden. Het effect is dat er nu acht maal op „en 
huse-iaas Dversans op PC4 wordt gewacht. Er worden dus acht blokken 
daörsttaten. (figuur 2) Dit is een eenbit Het schrijven van een 
nylbit vinden we op #FCSC. Het Y resister wordt hier vier en de 
Accu ouk. De inhoud van de Accu saat naar PC, PC@ en PCÌ zijn dan 
vul en fisuur @ teert dat er een een op de vitsane staat. Nu wordt 
er sewacht vp een hoosTtaas op PC4 waarna PC wordt opsehoosd. (punt 
A fisuur ZE) Dit betekent dat PCB ween wordt, Fisuur @ taat zien dat 











dan de uitsane nut wordt. Daarna wordt er weer gewacht op man 
hoos-laas oversane, Als nu rna het aflasen van het Y resister seen 
Zeroflas seset is volst de hele procedure OPmieuw. {Tetaal vier 
keer dus) Deze vier blokken van 1208 Hz. (twezsmaal zolans ats 2400 
Hz.) vormen een nulbit. Als we nu een heet byterbijvoorbeeld HES 
wessturen dan ziet dat er uit als in figuur á. 

Voor liefhebbers van FCOS geef ik de volgende aanwijzins,waarmee 
het heel sved mogelijk moet zijn om de verschilten tussen de FCOS 
en SCOS routine te verktaren. De enen en nullen zijn hier vier maal 
zo kort. (immers 1200=4#700) Met andere woorden zen eenbit iS TNee 








489 Hz, blokken en een nulbit is een 1200 Hz. bleak. (figuur 5) 
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Nu zal ik proberen om duidelijk te maken hoe ze er weer af Komen. 
Om de zaken eniszins binnen de perken te houden zal ik aannemen dat 
de lezer het bovensensemde verhaal heeft setezen. 

Het saat nu dus om OSBGET. De manva! seeft ons hierover de 
valsende informatie: 
OSBGET Get byte 
The subroutine returns, in A; the next byte from a sequential read 
tile. Reeisters X and Y are retained. In the ATOM operatina system 
interruets are disabled during OSBGET but interrupt status is 
restored on exit. In the Disk Operatins System the file's 
seavential fite pointer will be incremented after the byte has been 
read. 
In het seheusen vinden we het volgende: 


OSBGET 

KFFDA HEC #14 #02 JMPC#HOZ14) 
BGTVEC 

#0214 HEE #FB 

#FBEE HEE HEC STXHEC 
FEED #4 #CS STY#C3 
$FBF2 #38 PHP 

*FBFZ #78 SEI 

#$FBFA H#A3 #78 LDRA#78 x 
8FBFG HES #CO STA#CA 
#FBFB #28 #BD HFC JSRHFCBD 
*FBFB #99 H#F7 BECHFBE4 
#&FBFD #E6 #CO INC#CS 
SFBEF #13 #F7 BPL#FBFE 
$FCOL #R3 #57 LDA2#SE S 
#FCOS HEF #C4 STA#C4 
#FCOS #A2 #00 LDXA#88 NUL 


#FCO7 HAC #02 HBO LDY#BODE 
#FCOA H2B HCD HFC JSREFCCD 


&FCOD #FO #00 BEQ#FCOF 
#ECDF #FD #01 BEO#FC1 2 

#FCI1 #E3 INK 

#FCI2 HCG HCA DEC#C4 

#FCIG &DB #F4 BNE#FCOA 

#FCIE #EG #3C CPXA#AC FF xX register “Tel Ceetee) 
BFCIE HEE #CD ROR#CG 

#FCIA #93 #E5 BECHFCO1 25 
#FCIE #A5 &CZ __ LDASCO 287 
#FCIE #28 PLP 

HECIF #4 #CT LDY#CZ mg 
#FC21 BAE #EC LDX#EC 

#FC25 #48 PHR 

BFC24 #15 CLC 

8FC25 #55 #DC ADC#DC 

&FC27 HES HDC STA#DC 

&FC2I HEB PLA 

&FCZA #60 RTS 

#FCBD #A2 4D LDXa#02 NUL 

HFCBF #AC #02 #BO LDY#BOO2 

RFCC2 #EB INX 


WFCC3 HFD #07 BED#&FCCT 
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#FCCS WZB #CD #FC JSREFCCD 
#&FCCE #F@ #FS BED#FCTE 
#&FCCA #EB #00 CPX@#DE BS 
#FCCC #69 RTS 
&FCCD #84 HCS STY&C5 
&FCCF HAD #2E HBO LDA#BADZ 
#FCD2 #AB TAY 
&FCDE #45 HCS EOR&CS 
*FCDS #23 #28 ANDA#22 SPC 
#FCD7  #EZ RTS M 


De set byte routine besint op HFFD4 met een indirecte sprons via 
214 naar #FBEE. De eerste vier commandu's heb ik al besproken 
(Stacker maart). Nu wordt #C@ sevuid met #78. Deze waarde lijkt 
vreemd maar verderoe moet bit zeven van #C@ een zijn en alte andere 
bits nul. Ais #C@ nu #78 bevat dan geeft dit ra acht keer ophosen 
niet alleen de sewenste #88 maar cok een een in de Nesativeflag. We 
kunnen dus zo tot acht tellen en ook noe de soede inhoud in #C@ 
krijsen. Nu volet een aanroep van de subroutine op #FCBD. 

Ope #&FCBD bevind zich een subroutine die de tiid meet tot de 
volgende hoos-laas of laas-hoos oversans oe PCS. Dit sebeurt door 
het X resister op te hogen tot er: met behulp van de subroutine op 
#FCCD: ern oversans is gedetecteerd. Ik besin dus met de routine op 
KFCED te bekijken. 

Als we hier binnen Komen bevat het Y resister de ’voriae' inhoud 
van PC, Dit wordt eseborsen in #C5. Nu wordt de inhoud van PC 
vesehaald en overgebracht naar Y. Let oe, de Accu bevat nu de 
nieuwe inhoud van PC en Y ook (dit wordt de oude PC voor de 
voltsende ronde). Nu wordt er een 'EXOR' uitsevoerd op de inhoud van 
de Acru en #C5. Het resuitaat Komt in de Accu. Met andere woorden 
de oude en de nieuwe PC worden verseleken. Het effect is dat alte 
bits die veranderd zijn een worden en alle onveranderde bits nul. 
Ais we ny een ‘AND’ met #20 hierop vitvoeren worden aile bits nul 
behalve bit 5, deze blijft onveranderd. Ats er dus niets veranderd 
Was bevat de Accu nu een nuit en is de Zeroflas een. Was er wel iets 
verandert dan bevat de Accu #20 en is de Zeroflas nul, 

Nu kijken we wat er gebeurt op #FCBD. Het X reaister wordt nut. Het 
Y register krijet de waarde van PC en X wordt veeehoosd. Dit levert 











seen vut oe in X dus de BRANCH" oe #FCCE wordt voorlopig niet 
vitsevoerd. Nu volst een aanrmep van de hierboven beschreven 
Subrouting,. Als PCS enveranderd blijkt: wordt er terus sespronsen 
vaar de 'INX' wvpdracht. Dit saat door tot PCS verandert of X 
overtoopt'. Is PCS verandert dan Wordt er sekeken of X kleiner of 
sruterselijk acht is. In het eerste Sseval wordt de Carryflaa nut in 
het tweede seval eer. 

Wat is nu hiervan het nut? Om dat Te bearijpen Saan we de tijd 


berekenen die tussen GFBFG en #&FBFF verloopt ats in X een bepaalde 
„indwaarde wordt gevonden. Dit doen we met behule van hoofdstuk 24 


Uit de manvat, hierin is aansegesven hoeveel cycles elk statement 
duurt. En omdat de Atom 1 MHz. EIOEK Loopt mosen we voor 
cyshes mitsoensten van 5 Dnden (ezen, IK heb een zr ander voor u 








in figuur 1 sezet. Nu zien we dat als bet lanser als 
duurt tot de overgans oe PCS komt dan wordt X 
Elsyk acht. Met andere woorden als het lanser als 
e overaans Wordt de Carryfliaa 

blokken die we ùP de band 
bleuk duurt 11/2408 sec. Deus 


onseteld zn 
87 
aruters 
» duurt tot de eerstvalsen 
kraken We naar de 1200 Hz. zn 
mb erf met OSEBPFUT. 
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wachten op een overeans duurt hier maximaal 1/2*1/2400=208E-6 sec. 
Voor 1208 Hz. is dat 1/2*1/1200=41EE-E sec. Ais er dus een eenbit 
2488 Hz.) tanes komt dan kan het nooit langer als 2D8E-6 sec. en 
zeker niet lanser als 287E-E set. duren tot er een oversans Komt. 
Voor een nulbit duurt net wel janser (616E-E)287E-E). Komt er dus 
een deet van een nulbit tanss dan Wordt de Carryflias een en anders 
nul. 

Daarmee is de Subroutine #FCHD hetemaal uitsetesd en Kunnen we de 
draad weer opvatten oe #FBFB. Is de Carryfias nul (dus is het een 
deet van een senbit) dan is het nos niet het sezochte startbit en 
besin dan maar opnieuw. Is het echter een 1208 Hz. blok tel deze 
dan door #C@ op te hosen. Op #FBFF wordt nu sekeken of er al acht 
van deze blokken zijn seweest zo niet dan moeten er nos meer 
biokken worden gemeten. Let op: ais er een 2409 Hz. biok Komt 
voordat er acht 1289 Hz. blokken zijn seteld WOrdt altijd weer 
helemaal OPNIEUW besonnen met tellen. 

Nu is het startbit setezen en bevat #CO de waarde #80. Op #FCO1 tot 
en met #FCIE wordt nu een databit gelezen (kom ik later op terus), 
Het selezen bit zit daarna in de Carrytias en wordt op H#FCIB met 
behulp van zen ‘ROR’ links in #C@ ingesthoven. Rechts Komt er dan 
een nut uit die in de Carryflas terecht Komt. NU wordt er 
terussesepronsen naar #FCR1 om nose een databit te lezen. Dit saat 
door tot er seen nul maar een een rechts vit #C@ in de Carryfias 
wordt seschoven. Dat gebeurt de achtste keer. Immers #CO bevatte 
HBB toen we besonnen. Er zitten nu in #C@ acht databits. Dit is het 
te lezen byte, Op RFCIC wordt dit oversebracht naar de Accu. En 
klaar is OSBGET! De rest, van #FCIE tot en met #FC2A is het reeds 
eerder besproken herstelten der resisters en bijwerken der 
checksum. 

Rest mij Het tezen van een databit te verduidetijken (Dat wordt 
weer rekenen). We besinnen op #FCO1. #C4 Is hier een telter die om 
te besinnen op #53 wordt sezet. Het X resister wordt @, hierin 
worden de oversansen geteld die zith voordoen tijdens de #55 keer 
dat de tus doorlopen wordt. Het Y register krijgt de oude waarde 
van PC, Nu volst de subroutine aanroep om te Kijken of er een 
pversans is seweest. In het seval de Zerofias hierna een is (er is 
dan seen oversans seweest) wordt er op #FCED sespronsen naar HFCOF 
en daar nosmaals, naar #FCI2. Let op: dit lijkt vreemd maar is toch 
zinvol. Het heeft nu zes cycles seduurt om op #FCI2 te Komen zonder 
X tz veranderen. Wat sebeurt er als er wet een overgans is seweest? 
De Zeroflaa is dan nut en er wordt tweemaal niet sespronsen waarna 
het X resister wordt opsehooad. Dat duurt precies Gok zes cycles 

Het maakt zo dus in tijd niet meer uit of er een Dversans is 
seweest of niet. Nu zijn we op #FCIZ beland, hier wordt de teller 
afselaasd en ats de lus nos niet #55 keer is doortopen wordt er 
terussespronsen. Is de lus vaak senmes doorlopen dan wordt het 
aantal setelde oversansen vergeleken met twaalf. De Carryfias wordt 
een ais het er twaaitf of meer waren. 

Dan saan we nu de betekenis van die twaalf bekijken. IK heb 
berekend (eeteld) dat het hete lezen van een bit ZT4ZE-E sec. KOST. 
In fiovur 2 zien we deze tijdsduur vitsezet onder 1208 Hz. en 2400 
Hz. blokken. (Bij de twaatfde oversans staat een pijttje.) We zien 
dus dat er in die tijd van de 1209 Hz. blokken nooit twaalf kunnen 
worden geteld (van de 2400 Hz. blokken wel). Het resultaat is dat 
een nutbit de Carryflaa nul en een eenbit de Carryfias een maakt, 
En bovendien in we Precies nr id oh het volsende bit te tezen. 
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SORTEREN 


Naast Bubbetsort bestaan er nos andere sorteermethodes. De 
meeste van deze methodes zijn beter dän bubbelsort. Dat bubbelsort 
toch vert Sse@ebruikt wordt: komt doordat het pProsramma relatief 
eenvoudie te schrijven is. 














In het prosramma SORT (gat uiteraard sebruik maakt van 
P-Charme) worden verschillende sorteermethodes gedemonstreerd. De 
items die sesorteerd worden: staan op het schera: zodat je kunt 
zien hoe het sorteren in z'n werk saat. Sommise methodes zijn 
echter zo snei dat er PAUSE-statements toesevoead moeten worden: om 
een en ander te kunnen volsen. 


In het alsemeen heten de eiementen die gesorteerd moeten 

worden ‘records’ of ‘items’. Men wil de elementen ordenen: meestal 
op rond van een bepaald veld in het record, dat dan de ‘key’ wordt 
genoemd (bv, sorteren op achternaam of op adres). 
Een belansrijke vraas die men moet Stelten is: waarom staan ze in 
de war: en waarom wil ik ze gesorteerd hebben? Zo kan men vaak 
voorkomen dat er sesorteerd moet worden: door bij het opslaan van 
de verschillende elementen er a! voor te zorsen dat die in de 
juiste volsorde Komen te staan. 
Men sorteert vaak om het zoeken later semakkelijker te maken of om 
seheusen beperkingen te overkomen. Dat het zoeken in een sesorteerd 
bestand veel sneller saat blijkt ai snel als we een naam Opzoeken 
in het telefoonboek (dat selukkie wel sesorteerd is). De GIRO zat 
waarschijniijk sorteren om te voorkomen dat tijdens het verwerken 
van de siro-opdrachten het computer seheusen zo sroot moet zijn dat 
alle rekeninshouders in de computer passen. Stelt nametijk dat het 
Siro-bestand sesorteerd os TAPE staat: dan is het valdoende om de 
insekomen opdrachten (relatief klein in aantal t.o.v. het aantal 
rekeninshouders) ook te sorteren. Hierdoor is het moselijk de TAPE 
steeds zover vooruit!) te spoelen Tot het nummer van de volsende 
opdracht iS bereikt. Nu staan er dus Op ieder moment slechts twee 
nummers in de computert dat uit het siro-bestand en dat van de 
opdracht. 


Vaak wil men dat de oorspronketijke ordening behouden btijft, 
wanneer elementen identieke keys hebben. Als men bijvoorbeetd eerst 
sen bestand oo adres sorteert en dan op naam, dan wil men Sraas dat 
mensen met dezelfde naam seransschikt blijven op adres. Voldoet een 
sorteermethode aan deze eis, dan zest men dat die methode een 
stabiel (stable) seáras vertoont, 


Wanneer men sorteert is men continu bezis met het versel ijken 

tCompare) en verplaatsen (Move) van elementen. 
Men tracht C en in het bijzonder M zo klein maselijk te maken 
fmeesta! Kost met verplaatsen van eiementen vee) meer tijd dan het 
vergelijken daarvan). Voor eenvoudise alsoritmes (rekenmethodes) 
zijn C en M evenredis met het kwadraat van het aantal elementen. 
Als het aantal elementen dus 19 maal zo sroot wordt, worden C en M 
18D maat zo sroot. Voor zeer snelle alsoritmes is C evenredis met 
N*tl_ OGEN) en M met N: waarin N het aantal elementen is. 





SORTEREN ERANS VAN HOESEL ACORN NI Pa 


Enkele termen die bij sOrteer-aisoritmes voorkomen: 

INTERNAL METHOD t elementen zitten atienaal in het werkseheusen 
CArray). 

EXTERNAL METHOD t elementen zitten in extern seheusen (File) 
bv. Disc of Tape. 

IN SITU : etementen blijven in oorspronkelijk array. 

NATUURLIJK GEDRAG : Als de eiementen at (bijna) gesorteerd zijn: 
is het alsoritne extra snelt. 


De sorteermethodes zelf zal ik hier niet bespreken. U moet dus 
zetf maar uitzoeken wetke algoritmes snel zijn: welke een 
natuurlijk sedras vertonen: of wetke een stabiel sedras hebben. Bij 
het bevaten van welke atsoritmes smet zijn, moet men wel realiseren 
dat het verplaatsen van items hier waarschijnlijk vlveser saat dan 
in de praktijk. Het saat hier ni. om BYTES gie verplaatst moeten 
worden en niet om array-elementen of strings ed. De tekens die op 
het scherm verschijnen die staan voor de eisentijke items worden 
gebruikt ats Kladruimte. Deze Kladruimte is bij atie aisoritmes 
gnathankelijk van het aantal elementen. 


18 PROGRAM SORT 

20 

38 PROC START 

48 PRINT $7' "PRESS KEY"sINKEY 1 
58 CLEARG:!'8=-10:P. #30 

568 FOR I=t TO N 

78 A? I=ABSRND%E4 


838 NEXT IE 

38 PRINT $30:INKEY I 
108 PEND 

118 


128 PROC INSERTIONSORT 

138 FOR I=2 TO N 

148 „X=A?IsA?D=Ki J=le1 

158 WHILE X{A?J A?CIJ+1)=A?J 
168 JeJ-1 

178 WEND 

180 A?CT+Ij=X 


198 NEXT I 
208 PEND 
zie 


228 PROC BINARYINSERTION 
238 FOR I=2 TO N 

248 X=A?IsLelsRele1 

258 WHILE L{=R MelL+RI/2 
268 IF XCA?M R=M-1 

278 IF X>=A?M Leti 
288 WEND 

298 FOR J=l-t TO L STEP -4 
300 A?CIHIJ =AIJ 

318 NEXT J 

3528 A?L=X 

358 NEXT I 

348 PEND 


A": } 
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368 PROC SELECTIONSORT 

378 FOR Iet TO N-1 

580 Kelt XA? I 

sa FOR Jalti TON 

408 IE APJX Kali XeAIJ 
418 NEXT J 

420 A?K=A? IA? I=X 

438 NEKT 1 

44B PEND 

458 

4EB PROC BUBBLESORT 

478 FOR I=2 TO N 

488 FDR J=N TO 1 STEP —1 
498 IF A?CJ-1)A?J XEAILF-IDFAPCT- DRAIT EX 
San NEXT J 

S18 NEKT 1 

528 PEND 

550 

S4B PROC SHAKERSORT 

358 Le2tReNiKeN 


568 DO 
578 FOR JeR TO L STEP =t 
588 IF AICF-IPAPT KEAICT-IN FAI (TD AIN AP Tei kel 


520 NEXT J 
500 L=K+1 
518 FOR Jel TO R 


620 IF A2(J-1D)A?J XA? UJ- DA? =D =AP HAI T=Ki ke J 
638 NEXT J 

E48 ReK-1 

65@ UNTIL LòR 

EE@ PEND 

678 


689 PROC SHELLSORT 

698 TaárHes2800 

700 HI le13iH?2e71H? SEE HI Gel 
718 FOR Mai TO T 

728 KeH?MiSe-K 

758 FDR IekK+i TO N 


7ág Xa? 13 Jel-K 

75e IF S=@ Sa-k 

768 8=5+11A0?S=X 

778 WHILE X(A?J A? (T+ EA? J 
788 JmJ-K 

798 WEND 

820 A? CIO mX 


828 NEXT 1 

8329 NEXT M 

BSB PEND 

540 

B5@ PROC SIFT 

BE® Izts Jarl} Xe? 

878 IF JR GDTO h 

888 IF JCR IF A?JLA?CI+I) JeJr1 
890 IF KCAIJ A7I=A?JsIeJsJe2eIsGOTO a 
9DOn AIleX 

918 PEND 

928 

338 PROC HEAPSORT 
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248 

958 

gEB 

378 

88 

398 
1528 
1018 
1928 
1958 
1848 
1858 
1858 
1070 
1288 
1990 
1188 
1118 
1128 
11358 
1148 
1158 
1168 
1178 
1188 
1138 
12093 
1218 
1228 
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L=N/ 241 iR=N 

WHILE Di Let-l 
SIFT 

WEND 

WHILE R)1 X=A?15A?1=AIRIAIR=K 
R=R-15SIFT 

WEND 

PEND 


PROC QUIEKSORT CL, R+ Is J 
Ies JeRs XSAICCLERI /2) 
DO 

WHILE A?I{X I=I+1 
WEND 
WHILEX(R?J J=J-1 
WEND 
IF I(=J W=A?IGA?I=A? IFA? J=WiIelttiJ=J-1 
UNTIL DJ 
IF LCR GUICKSORT CL, J) 
IF ICR GUICKSDRTCI, R) 
PEND 


A=#80BFIN=HEGIPRINT $12 
START; PRINT" INSERT IONSORT " ; INSERT IONSORT 
START; PRINT" BINARY INSERTION" ; BINARY INSERT ION 





START: PRINT" SELECT IONSORT " ;: SELECT IONSORT 
START ; PRINT " BUBBLESORT * ; BUBBLESORT 
START 5 PRINT" SHAKERSORT " ;SHAKERSORT 


START: PRINT“ SHELLSORT" ; SHELLSORT 
START : PRINT" HEAPSORT" ; HEAPSDORT 
START ; PRINT" QUICKSORT" ; QUICKSORT C1‚ N 


VTAB 15 
PRINT $7" "$8$8 
END 
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18 REM SNAPPER MET JOYSTICK 220 LSRA;ANDS#GF : TAX 
28 DIM JIS Z3B INCHEB:LDA#EB; LSRA 
38 FOR I=OTO3iJJI=-tiNEXT 1 248 LDA JJ2,X+BCC JJ1 
468 P.,$21 258 LDA JJ3X 

58 FOR I=í TO 2iP=#5E08 268: JJ1 ASLA;DRAHES 
EACLDAI#30 ; STA#BADD 278 LDX#EB;RTS 

78 JSR JJG 285: JJ25 J 

8558 CMPOHEF : BEGHSEZA 298 #7OFAFEF 

98 CMPAHF7 ; BEGHIS2O 308 P!'4=t07DEDFAF 

102 CMPO#FB:BEG#Z825 318 P!'8=40BEFGBEF 

118 CMPA#FD: BEGHSSLE 328 P!12=tOFBEBDAD 
128 JMP#3570 338 P=P+16:E 
1358 LDYAKO1 s JMP#IB57 540: JIE 

148 LDYAKD2: JMPRSEE7 359 'P=tOBOFOFOF 

158 LDYAOSEJMPHIEE7 ZED P!4=t07070F0F 
168 LDYSRZO: JMP#ZEE7 570 P!E=#0BOFBDEF 
1703 388 P!1E=tOFBEADOE 
188 MHIBTE=HDE 398 P=P+16 

198 P=43F20 488 NEXT IsP.$6 
208L : JJG 410 END 


218 STX#E8:LDA#BEDI 5 STAKES 
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RAM OP#0400 


Bij de mensen, die een ORIGINELE ATOM DRIVE BEZITTEN, en het laze 
geheugen sestapeld hebben (#SCOO-KIFFF) zit er IK RAM dubbel in het 
systeem. Op de controller kaart zit nt. ook IK seneusen op 
#SCBD-HIFFF in de vorm van de IC's 20 en 21. Deze IC's worden 
normaal, wanneer U dit seheugdengedeelte binnen de bus hebt sebracht 
niet gebruikt. 

Dit stukje seheusen is eenvoudis op #408 tot W7FF te adresseren. 
Hiervoor moet de decodering op de controlterkaart veranderd worden 
zie fis.1): dit saat als volst: 





1 U verbreekt het printspoortje dat van pen 15 van IC 12 komt en 
naar pen 11 van IC 14 saat (aan de solideerzijde van de print, het 
dichtst bij pen 11) zie fisvur 3 


2) Les nu een verbinding van het doormetaliserinsssaatje van het 
net onderbroken erintspoor naar pin 1 van ICiá (fis. 3) 


5) Onderbreek nu het printspoortie wat van pen 8 van de IC's 20 
en Zl komt en naar pen 9 van IC 12 saat. (aan de componentenzijde 
van de print vlak achter het saatie waar het spoortje 
doorsemetaliseerd is.) zie fisuur 2 


a) Les nu een verbinding van het doormetatiserinsssaatje van het 
Spoortje (aan de componentenzijde vast solderen) naar pen î1 van IC 
12. (aan sotdeerziide) zie fisuur Za 


Het is verstandis, als u niet zo heel ers bedreven bent met de 
soldeerbout de IC's 12,14,20:en2t uit Mun voetjes te nemen voordat 
u begint. Verder is het betansrijk om de onderbrekingen die u moet 
maken: even te controieren met een OHMmeter (moet ‘oneindis 
aanwijzen). Het solderen moet niet te tans duren, omdat dan de 
doormetaliserinsen, van de saaties: door de warmte kapot kunnen 
aaan. Verder moeten de plekjes waar sesoldeerd moet worden even met 
een SCherp Nessie ontdaan worden van tak 
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INTERPOLATOR 


Ken je dat probleem: je wilt een grafiek tekenen, maar je kent maar 
een beperkt aantal punten van die srafiek. 

Hoe trek je nu een mooie lijn door die bekende punten? Je zou van 
ount naar punt rechte stukjes lijn Kunnen trekken: maar dat geeft 
een nosal hoekis resultaat, 

Veel mooier is het een echte vloeiende lijn door de punten te 
trekken: maar dat wit mij nooit zo best lukken. 

Vandaar het onderstaande prosranma “INTERPOLATOR", die deze klus in 
een Wip Klaart. 


Je seett hierbij het aantal bekende punten op en vervolgens de 
coordinaten van deze punten, besinnend bij het meest linkse bekende 
punt: daarna zijn rechter buurman, enz.enz. Als taatste worden nos 
de minimale en maximale waarden van X en Y opseseven die in srafiek 
maeten worden sebracht en vervolsens saat de "INTERPOLATOR" aan de 
slag, 

Daartoe bepaalt deze de parabool die door het ie: Ze en Ee punt 
loopt: vervoisens die: die door het Ze, Se en ke punt saat, enz. 
Wanneer nu de srafiek tussen bijv. het 6e en 7e punt wordt 
getekend: wordt in de buurt van het Ee punt begonnen met de 
parabool die hoort bij het Se: Be en 7e punt. In de omsevins van 
het 7e punt Wordt de parabool aansehouden die hoort bij het Ee, Je 
en Se ount. Tussen het Ee en het 7e punt wordt een seleidelijke 
“overvlioeier” semaakt van de ene parabool naar de andere. 


Natuurlijk zijn er nos heel veet andere interpolatie-methoden 
moseltijk, dus als je nos een andere: misschien fraaiere of snellere 
bedenkt: dan hou ik me aanbevolen. 


18 REM INTERPOLATOR 

28 REM AUTEUR: 

38 REM HANS HEGT 

4B REM BRABANTHOEVEN 152 

5@ REM ROSMALEN 

GB IN.” “HOEVEEL PUNTEN"N: dz@ 

70 IF NS P." "MINIMAAL 3 PUNTEN! "" ;G. 60 

88 FDIMXXXN, XYYN, X6G2, XAAN, XBEN, XCCN 

9 LXO=-1E3B 

100 FOR T=i TON 

118 P,“XC*T*)a" FIN. KXXT 

120 FIFXKXTeKXXCT-1D HP." “VERKEERDE VOLGORDE! "" ;G, 110 

4 P.syorr"ers FIN. XYYTsP. 

14D NEXT ° 

158 FIN. “XMIN"XAGFIN, "XMAX"XBIFIN. "VMIN"XC5FIN. "YMAX"XD 
168 CLEAR4 

178 FOR T=1 TO 9 

188 XR=T425. 54. S3REKRIMOVE R‚O:DRAW Rs 13MOVE R‚ 191;DRAW R, 190 
198 XG=T«19, 14+, SIS=XSIMOVE @» SIDRAW 1,S:MDVE 255, S; DRAW 254,5 
200 NEXT T 
210 KE=255/ (XB-XA) 
220 %G=191/ (XD-XC) 
230 FOR Tei TON 
SUD KX=ZCUKXT-KAI KEN. St AX 
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258 AY=CHYYT-ACIELGE, Di Ver Y 

MOVECK Ds CY-1) FDRAWEK- 1e CYHIIEDRAWEKH IDs CYHI) 
DRAWECX+H1 Js CY-13FDRAWEKeL Ds YE) 

252 NEXT T 

z38 MOVE, 05 DRAWESS, Gs DRAWZES: 191 +DRAWD: 1915 DRAWS: B 

200 FOR Kz TO Ni 

EIB HHEUKKCK- IN FAILAKKCHI FATTAKKEKHL ID FALEAVYCK- ID FAMEAYYEKD 
E HOEHYY KHL 3 AGODA 3 AGOI AHA $AGHEZERH AI 
AN=AGG CO) #GGE LD AARDE) 

HAACK) =CHLHAGG CH) -AMAAGGEL ) FAORZEG EE) ) AN 

LBEK=C CAM-AOEAHELH- CAL AO EA IAA IH CAL AMER THAT) / AN 
KCCKE LC ALHLGG CDI AAI AAT AMHAGG CL DEAN TAADEAGE CED BAHATI) / AN 
570 NEXT K 

350 Kel 

z30 FOR T=0 TO 254 

408 AX=AAFT/LE 

hbiDb FIEAX)AKXEK) sKekt1:GOTDb 

458 GOSUBr 

LEO OAVECAY- ACN HAD. Di Ven 

648 DRAWT, Y 

450 NEXT T 

GEO LINK#HFFES 

470 END 

4GEGcIF KCE GOT) d 

430 IF KON) GOTO = 

SUD Lek-1:6G05, fr AREAPIL=EKI GOE. fr ASAP 

SID AVECCAKKEHI AKI AARHCAK AKK CKD JAMS A LAKKEKI AKKER LD ER. 
SEOdL=E GOS. f3AYENRPER,. 

SEOebeN- ti GOS. f5 AY=KPIR. 
EULDEAPALAACLD HAK HAKHABERCLD AAKARDCELD FR. 








1% REM HEXDUMP WITH ASCII 

20 REM FROM WILLOW SOFTTOOL 

ZOIN. “START AT "I3IF ID HFFFFGE. 

409=8:D0 IF I(#1000:P. OF IF 1(HIOGIP, OrIF I(H1O:P.D 
SUP, &ISFOR Jel TO I+73P.“ “HIE PJGH1ODIP. DO 

EOP. &? Js iN. iP. 4 "3FOR Jel TO I+7i0=?J 





IOP," “ECIN. FP." I=I+DSU. ID HFFFE 
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MAGISCH VIERKANT 


Een masisch vie=rkant iS man MAUN ix gevuld met getal tet: waarbij de 


Sin van de getal len zE et ke vid: Id lk Kl Em en Pp bet de 
diagonalen Stel i JK is, De getal ten in het masiscth vierkant marten 
alt lemaat versihiltend Zij: besinnend vanaf 1 =n dan >Plopend. In 


zen maaisch vierkant met zijde 5 mmtten We dus de getalten 1 t/m 3 
Plaatsen. 


Ornderstaard Hasic oroareatmme berekent matische vierkanten met 








maximum zijde ZO. Een maaisch vigrkant met zijde =r ats 
volet Uit: 

â 5 8 

3 5 1 

2 7E 
Het kleinste masisth vierkant heeft Uiteraard Zijde 1: 1 . Er 





bestaat ge ma3 ti Vierkant (nrtt Eider 
vindent). De wat arvtere MaSisthe Vi 
18% rassen niet rme van Fort denbeeri. Als U een Printer 
heeft, kunt DJ de Viserkar ben heet ba CE UR Papier metten. Bezit WW 






Cerobemer te 


eN near 
arkanten met zijde grater dat 















ERG 





een SO-kotoms VDU-kaart,: dan Kunt U de vierkanten muk MetjJes ap het 
beetdsiherm te Vn scht)i toveren. Een magisch Vierkant met Zijde 
20 is precies 0 Kulwinmen bremc. 

Het pPprasramnna maakt Sebruik van de P-CHARME interpreter van Frans 


van Hoeselt, sen Vieuwe toolkit met ma Procedures en funities 
PROGRAM MAGISCH- VIERKANT 


REM GENEREERT MAGISCHE VIERKANTEN MET ZIJDE MAX. 20 

REM OORSPRONKELIJK GESCHREVEN IM PASCAL DOOR PETER SCHULEIN 
50 REM AANGEPAST AAN ACORN ATOM DOOR RONALD HDERS 

EQ REM P-CHARME VAN FF. VAN HOESBEL NOODZAKEL L.J 





78 

58 PROC SKIP 

F0 REM DUMMY PROC VOOR LEED ELSE-PART 
180 PEND 

118 





128 PROC WRITE-CHARCC, KD, 1 
158 FOR I=t TO N 

140 PRINT #&C 

158 NEXT I 

1EZ PEND 


188 PROC WELCOME- SCREEN 
PRINT$1E 
WRITE-EHARECHY a" 
PRINT"+M A GI SCH WIERKAN Tt 
PRINT" sWRITE-CHARCCH" &, ZO) 5 PRINTS! 





PRINT "* TYPE B OM TE STOPPEN Es 
WRITE-CHARCCH EED 

PRINT 7 

PEND 


PROC ONEVEN ED), Ro Ko J 
REM VUL ONEVEN MAGISCHE VIERKANTEN 
R=O4+1/E-1 
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310 K=0-1 

328 FOR I=t TO 0#0 

KAT] VVR, KO =I 

348 XIF IXOOB THEN Ke{K+1)%0 
358 R=CR+1) XO 


3E ELSE KecK-1)%0 

378 NEXT 1 

38B PEND 

290 

489 PROC VIERDEEL,K, R‚ He Is J 
410 FOR I=1 TO Z*Z 

428 K=Cl-1%Z 


470 R=CI-1)/T 

4460 VVER, KO =1 

458 NEXT 1 ;REM VIERKANT OP VOLGORDE GEVULD 

460 

478 FOR R=O TO Z-1 

480 FOR K=0 TO Z/2-1 

438 XIF CRKUEKKAIORLE-CKKADERKA) THEN HEVVCR, EO 
50e VVR, KJ EVV CZ=tE-R; Zelk) 

518 VUZ- TR, Zeik) =H 

520 ELSE SKIP 


538 NEXT K 

5460 NEXT R 

558 PENO 

SEB 

570 PROC EVEN, K‚H‚ Ds WI, J 

SE REM EVEN VIERKANTEN VOLGENS STRACHEY 

590 K=Z/43HeZ/ 23 WEHeH 

608 ONEVENCH):REM VUL SUBVIERKANT LINKSBOVEN 
E19 FDR I=3 TO H-1 

E28 FOR J=Z TO H-1 


638 VUCI+Hs JH) =VVCIs JD +W 

E40 AAD EE a AAS EERE dd 

E50 UVC Ie, DDI FD + EW 

5&B NEXT J 

670 NEXT I;REM LINKSBOVEN VIERKANT GECOPVEERD +50M 
EED 


EIB FOR 1=8 TO H-1 
708 FOR J=@ TO K-1 


718 UEWVCI, DD 

728 VVCI, JD=VWCI+H, JJ 

750 WVLI+H, JD =U 

7ag U=VYEI, ZJ) 

758 VVLI, ZJ) WWEI+H, ZD) 
758 VVECI+H, ZJ) =U 

778 NEXT J 


7EB NEXT I+REM VERWISSEL ONREGELMATIGHEDEN 
798 U=VVEK, D) 

558 VVL BI =VV K+H DD 

BiB VVEK+H, B) =U 

828 U=VVEKK) 

EI8 VVEK: KO) =VV K+H KO) 

E4D VVEK+H, KO) =U 

858 PEND 

Beg 

878 PROC DRUK-MAGISCH-VIERKANT-AF, 1, 3 
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BEB PRINT'' 

E90 D=Z/11+3 

90D FOR I=8 TO 2-1 

910 FOR J=8 TO Z-1 

328 PRINT WVOI, 5) 

3938 NEXT J 

240 PRINT' 

358 NEXT 1 

SEO Hed 

378 PRINT’ "MAGISCH VIERKANT MET ZIJDE: "TZ" 
958 PEND 

930 

1823 

1018 REM HOOFDPROGRAMMA 

1020 M=205REM MAXIMALE ZIJDE MAGISCH VIERKANT 
1858 DIM VVCM,M) 

1848 WELCOME-SCREEN 

1858 ON ERROR PRINT’ "FOUTE INVOER! "* 


1958 DO 
1878 DO 
1088 4=0 


tesd PRINT' "GEEF ZIJDE MAGISCH VIERKANT :"" " (MAX, "M'j" 
1198 INPUT Z 


1118 IF ZM THEN PRINT' "TE GROOT! *" 
1128 UNTIL Zo=D AND ZC=M 

+158 

1148 XIF Z)8 THEN 

1158 XIF ZO 2 THEN 

1166 XIF EVENCZ) THEN 

1178 XIF ZX4=D THEN VIERDEEL 
11808 ELSE EVEN 

1198 ELSE DNEVEN(Z) 

1:08 DRUK-MAGISCH-VIERKANT-AF 
1218 ELSE PRINT’ "MAGISCH VIERKANT MET ZIJDE 2" "BESTAAT NIET. *’ 


1228 ELSE SKIP 

1238 WRITE-CHARCCH"«", 32) 
1248 UNTIL Z=8 

1259 PRINT’ “TOT ZIENS!""" 
1262 END 


FOUTJE' ' FDUTJE! ! 





En de vorsse Acorn nieuns 15 um beet Schema met verbeteringen van de 
Kleurenkaart {ps, 590) aên te geven dat idensater C4 (2 
pas. EE var:s niad) moet warden tot 470, en RE 
Kortaestoten moet worden. 





Rudi van Druren 
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In Acorntiesbrood mr. 1 1984 stond helemaal achteraan „en 
sdurcetistins van de systeemsoft voor de Etektuur VDU-kaart. Dit 
prasramma is gesenereerd door een zen. sourcemaker die op enkele 
routines: bestemd voor een 40-kolmmmenkaart en aanwezia in de DOS 
RDM, is tosselaten met als resuttaat een Ieesbaar en veranderbaar 
orosramma (zie ook AN 2,6 p. 74-75). Het veranderen van zo hier en 
daar enkele parameters maakt de routine seschikt voor de VDU-kaart 
in naar keuze 48, E4 of BĲ kolommen. Bij dit veranderen zijn er 
Enkele foutjes semaakt. In de reseis 1448 en 1489 moet het laatste 
vraasteken vervansen worden door een deelstreep, Deze routine werkt 
Cjawel!), maar heeft enkele nadeten: 

1. 7 bytes zero pase gebruik: terwijl we streven naar á bytes: #DE 

#DF, #ES en HEI, dezelfde die de Atom VDU sebruikt, 

2. het prosramma is zo ondoorzichtis ats het Noorden. Is niet 
verwonderlijk: maar mel hinderlijk. 

3. het prosramma is niet in symbolische assembler seschreven. Dit 
is sen belansrijk nadeel (hoor wie het zest!). Ik heb seprobeerd om 
het prosramma te schaven: te poetsen en te polijsten: maar op zeker 
moment toch de moed opseseven en ben opnieuw besonnen: met 
bijsevoesd resultaat. Alte genoemde nadeten zijn nu verdwenen. 
T.a,v. punt 1 kan ik vermelden dat in #DE/SDF het startadres van 
het scherm staat (linkerbovenhoek), in #EG de X-coordinaat van de 
cursor en in #E1 de Y-coordinaat. Volsens de datasheet van de GB4S 
kan het disptar start address, opsestasen in de resisters 12 en 15, 
Uitsetezen worden. Dit is echter NIET het geval. Althans, niet bii 
ge GE4SP die ik heb en u waarschijnlijk cok heeft. Misschien dat 
het bij de GB4SS wel kan: maar hoe dan gok: het prosramma neemt de 
veilige wee en definieert #DE/#DF ats schaduwadres. In de routine 
CHAR ADR wordt vit deze sesevens het werkelijke karakter-adres 
bepaald op een alsemene: doch niet ers snetie wijze. Het erosramma 
saat ervan uit dat zich in de karaktersenerator een ASCII 
karakterset bevindt. Er wordt dus niet met karakterwaarden 
semanipuleerd, zoats dat in de Atom VDU het seval is, Voisens een 
„erder selanceerd voorste bevindt de controller Zich oP 
#BFFO/HBFF1; het seheusensebied heb ik echter op HIEUG- HIFFF 
setocaliseerd (adrestijn AiS anders), omdat dit at op de bus zat. 
Ik ben daarmee mijn rommetRAM op #9803 en hoser niet kwijt en hoet 
niet weer aan mijn Atom te solderen, Bovendien heb ik na: ?#BFFF=0 
(schakelkaart niet op WP) s?18=#20INEW toesans tot maar liefst 3Ek 
séhevaenruvinte, Van het prosramma valt verder nos te meiden: 











1, hardware scrolling sehandhaafd. Eloedie snet. 

2. passe mode seimplementeerd. Deze wordt na eike toetsaansias 
asreset, zodat de uitvoer altijd pas na b.v. 20 resels sestopt 
Wordt. 

5. Pase mode kan ook afsezet worden. 

ke. auto repeat, tunctietoetsen en extra CTRL-functies kunnen 
senvoudis SEebouwd worden, 





5. de initiaties van de EE4S5 heb ik zo sekozen dat ik de moniter zo 
ain moselijk hoef bij te stellen als ik hem op Atom VDU of Elektuur 
VDU zet. Dit kan bij v anders zijn. 

6. als cursor heb ik sekoren vo een matie knipperend blokje ter 
haoste van een karakter. Als u hem anders wilt hebben dan zuit u 
dat even zelf moeten aanpassen. 

7. de huidise karaktersenerator bevat E4 sraphics Symbolen met 
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waarden van #00 tot #IF en #E@ tot #9F. Deze symooten kennen we van 
mode @ van de Atom (2 * 5 blokies dus). 

B. er iS reeds gen plutroutine seschreven die m.b.v. deze symbolen 
zen rasolutiëe haalt van 168 Chor.) bij 72 (vert. ). 

9. het prosramma is bruikbaar in de Word Pack die daarmee zonder at 
te veel wWijzisinsen zen tekst verwerkt van 235 regeis bij 22 
karakters. Deze tekst is met zo'n nieuwe Word Pack semaaxt en de 
aanschaf Yvan zen (dure) monitor was dat zeker waard. Het zou 
ĳverisens zo kunnen Zijn dat het sebruik van de symbalische 
assembler voor Uu Problemen optevert: omdat u het niet kunt of wilt 
draaien. In dat seval seaf ik u de volsende ounten in averwesind: 

ti. neen deze selesenheid te baat om de symbolische assenbter te 

instatleren. Dit kan gebeuren in de schakeikaart in eprom: inladen 
in RAM op KAXXK, of inladen in RAM elders in weitk geval ik een 
speciale versie van de assembler moet maken. Het kan allemaal, De 
Symbol ische assembler is „en niet te onderschatten stuk 
gereedschap. Gebruiken dus, U sebruikt immers Dok seen Schuurpapier 
als u een bandschuurmachine in de kast heeft lissen? 

Ze Wilt u toch een basic assembler [istins dan zult u de diverse 

symbolen zelf moeten veranderen eb. Ve CHANGE-STRING 
(Acorntiesbrood i,4 p,25 @&.v‚)s: P-charme: de Toolbus ROM of: maar 
dat raad ik u niet aan: met de COPY-taets. 

5 PN als laatste mogelijkheid: hoewel onbevredisend voor beide 
partijen: kan ik het oporosramta vertaten en U de vertaalde co de 





gosturen. Voor de geinteresseerden Wit ik op deze plek nos even het 
boek "E65B2 Systems prosrammins® van Thomas G. Windeknecht noemen 
Dit boek behandelt op een sedeger wijze de OoPbouw van de 


srsteempro- srammatuur van een E502-computer. Een eerste blik in 
dit boek roept associaties op met APL en ander abaäcadabra: maar een 
tweede blik leert ons dat er toch veet interessante zaken uit de 
doeken worden sedaan. De reden dat ik dit boek noem is een summiere 
beschrijving en de toepassins van de BEáS CRT-controlter. De enise 
keer dat Thomas de plank mis slaat is op p. 33 ten ook op p. 105) 
waar hij Stelt dat voor hardware scroliing een RAMsesbied nodis is 
van & of Bk. Volsens hem zou dit dus niet wmosetiik zijn op de 
Etektuurkaart waar immers slechts Zk RAM op zit. De bijsevoesde 
routine bewijst dat dit welt desetijk mogelijk is. E.e.a. heett tot 
sevols dat hij voor de scrotting routine zijn .toevtucht neemt tot 
het SOftwaremati® opschuiven van het beeld- Schermseheusen, Dit is 
echter in de kernel-listins wet aan te passen op de plek waar SC: 
Staat. Voor de rest is alles dermate recht-toe-recht-aan dat dat 
zeen problemen op za! leveren. 





r àl terug sestuvurd. 





Is het ernauste formui 
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NIEUWE MICROLINE BO KARAKTERS MET DE EDITOR-ROM! 


Het artiket van Martin Janssen in Acorn Nieuws van december 1985 
over het ontwerpen van een vitsebreide kKarakterset voor de 
Microline 88 heeft mij aan het denken sezet. 
Mijn "eikel" gebruik ik veeivuldis voor het maken van wiskundige 
teksten. Vervelend was echter dat ik voor elk wiskundis symbool 
vooriopis een spatie in de tekst moest opnemen om die tater met de 
hand op te vutlen. Zo ontstonden er teksten zoals: 

Als A B en B C dan A C 
Later werd dit dan: 

Als Ac B en Be Cf dan Ae € 
Ik dacht dat ik nu eindelijk van dat invulien verlost zou Zijn. 
Maar ….….… een aantal nieuwe karakters in een eprom stoppen: is nos 
wel wat anders dan ze via de editor er weer uit te haten. 
Wei: na flink wat denkwerk is me dat toch selukt: 
Je typt het onderstaande prosramma in: je brenst de editor naar 
#AZ2R onder BFFF=D, Je runt het prosramma en zet de zo sewijzisde 
@ditor eventuee! weer vast in een eprom. 


18 REM WIJZIGINGEN WORDPACK-ROM 
20 DIMAt: LLS; F. B=0TOS:LLB=-1iN. 
30 P.$12:IN. "EXTRA ROUTINES BINNEN ROM (J/N) "SA 
45 IF 2AOH4A AND AO H4E:G. 30 
58 REM I.P.V. G-ROUTINECRAC5-ABO4) MET "KORT" G-COMMANDO 
68 IF ?A=#4AsF, Bei 102: P=#AACSS GOS. at GÜS. biN,. +6. c 
73 REM BUITEN ROM 
82 IN. “ASSEMBLEERADRES (BV. #4020) "C 
38 F.B=1TD2:P=C; GOS. BEN. 16. c 
182aP. $21 
118C\"KORT" Q-CDMMANDO 
120 LDA3Ds STA#E7 ; JMP#C2BE 
130I3R. 
1460bP. $21 
150L\E, RA EN B-INFUTROUTINES 
168:LLB JSRHFFES : CMP9Ös BEQLL 1 5 JMPSFFES 
17O:LLi JSRLLZI JMPHFFF4 
1eerlL2 JERWFPES rCrPaw7F ; BCSLI-21CMPOMGOI BOCLL 200LE sADEHPED 
R 
208\X EN I-INPUTROUTINES 
21B:LLS JSRAFFES:CMPOD: BEQLL 2 
229 RTS 
239\0-0UTPUTROUT INE 
240: LL4 CMPAD$BMILLS: JMPHFEFB 
258:LLS INC#DOBZ; JSRHFEFD ; DECHBEG2 
255 RTS 
278J8R. 
280cP. $6; IF ?A=H4EP, “EINDADRES: "&(P-1)' 
290 REM WIJZIGINGEN JSR-ADRES VAN E‚R‚A EN B-ROUTINES 
IAB WAABB-LLOK2SE 5 WA4B1=LLD/ 256 
318 PHAABC=LLOK256 s IWA4BD=LLO/ 2565 
320 REM IDEM X EN I-ROUTINES 
SIB PNAI7B=LLEKZSES WAI7I=LL3/256 
S4B PNA7ES=LLIK2SE r NA7EE=LLI/ 255 
358 REM IDEM O-ROUTINE 
ze0 PHACCF=LL4 25E 1 WACDEELLA/ 256 
E. 
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Zoals je ziet vraast het prosramma of je de extra benodisde 
routines binnen of buiten de editor witt onderbrensen. 
1."Buiten de editor“ heeft het voordeet dat de werkins van de 
editor volkomen onsewijzisd blijft. 
2.“Binnen de editor“ tast de werking van het @-conmando aan: maar 
heett het voordeet dat de hele zaak weer in een 2552 sestopt kan 
worden. Het Q-commando stapt dan nos wel uit de editor: maar zet 
seen Basic-prosramma meer naar #820B. Dit lijkt mij seen bezwaar 
omdat in Basic-eprosramma's toch seen zelf ontworpen symboten 
voorkomen. Als iemand een betere opstasrlaats binnen de editor 
weet te vinden: kan hij natuurlijk in resel 50 een ander 
assembleeradres P opseven. 


Hoe nu de toetsen te bedienen opdat de nieuwe karakters uit de 
printer rotlen? 

Wel, bij afte input-commando's (dus bij E;‚R:;A,BrX en 1): werkt dat 
op dezelfde manier: 

de eerste toets die na een CTRLS wordt insedrukt tevert een zelt 
entworsen karakter op. Op het scherm verschijnt een normaal 
symbool. Dat symbool is niet selijk aan het bedoelde nieuwe 
karakter en ook niet aan het karakter van de insedrukte toets. Trek 
je daar niets van aans als jouw printer srafisch Kan werken onder 
de standaardisatienorm bit €35, komt het nieuwe Karakter vanzelf op 
eapier. Dit laatste natuurlijk wel onder de voorwaarde dat je met 
behulp van de aanwijzisinsen in het artikel van Martin Janssen die 
nieuwe karakters in een 2716 hebt sekresen. Dat is mij met de 
prosrammer van de club niet selukt!!! Na het opbiazen van drie 
2716’ s kwam ik echter tot de conclusie dat een 2532 ook keurie in 
de printer sebruikt kan worden. De adreslijn All tist in de printer 
toch aan @ volt. In mijn printer zit ds nu een 2532, waarvan maar 
2K sebruikt wordt. Maar toch: even er tussen door: 

WIE HEEFT MET DE PROGRAMMER VAN DE CLUB HEL 2716's GEVULD EN KAN 
MIJ VERTELLEN HOE DAT MOET??? 


Even kijken of alles nu werkt: 
xr + 22 + y3 hup 
E fieri = 5 
AnBeaR 


Gelukkis, blijkbaar wel! 


Tenslotte nos de vraas onder welke toetsen de nieuwe karakters nu 
precies zitten? 

Je zuit merken dat na een CTRLG alleen de codes #48 t.e.m. WIE, dus 
de toetsen “A* tem, *t", seaccepteerd worden. Deze codes worden 
omsezet in codes die #E@ sroter zijn, dus in de (srafische) codes 
HAD t‚e.n. HDE. Deze “Japanse” codes kun je verder naar believen 
vervansen door Je eisen karakters. Zo zit bijvoorbeeld bij mii 
onder de toets “a” na CTRLS het karakter “«"? op het scherm 
ontstaat dan een "A". 

Veel plezier met deze klus, maar verkno 
betr! 


i er minder eproms aan dan 








Win van der Maaten. 
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Bij het prosrammeren in machinetaal is het vaak nodia om van een 
machinetaal programma Te weten welke zero-pase lokatie's worden 
Sebruikt en welke vrij zijn voor eisen Ssebruik. 

Bij zen klein erosrammaatje is dit nos Wel met de hand te doen 
(door disassembleren), maar bij srotere prosramma's is dit sen 
hele KIUS, waarbij snel fouten worden semaakt. 

Onderstaand orosramma kan hierbij behulpzaam zijn. U seeft een 
Sèhevoensebied en een zero-pase sebied op. In dit seheusen sehbied 
wordt op zoek sesaan naar intructie's die de opgegeven zeropass 
lokatie’ s sebruiken. Naar wens worden de desbetrefttende 
instruktie’s afsedrukt. Bis seindexeerde adresserinasmethode'’s 
uitkijken: in LDX @#02:STA #30,X wordt lokatie 92 sebruikt i.p.v. 
#30. Denk dus om de mogelijke waarden van het gebruikte index 
resister, 

Verder kunt U aan de hand van deze listings als instruktie opgevatte 
tabellen en veksten oosporen. Deze lijst kan op twee manieren 
sesorteerd zijn: op oplopend adres of op oplopende zeropase 
lokatie. Deze laatste mogelijkheid is de overzichteliikste: maar 
neemt wel meer rekentijd in bestag. Aan het eind van deze listing 
volsen nos twee overzichten: het eerste bevat atte gebruikte 
zero-pase lokatie's vit het ppseszeven sebied. Als bij de 
adressering een seindexeerde of indirekte adresseringsmode gebruikt 
wordt, staat er achter de zeropase Iokatie een “+ teken. 

Het tweede overzicht bevat alle Iokatie's uit het opseseven sebied, 
die niet sebruikt worden. Hiermee Kunt U setakkelijk tokatie's 
vitkiezen voor aebruik in eigen prosramma' s. 


Voorbeeld U wilt weten welke zero-pase lokatie's. in de COS sebruikt 
worden: 


ek ZERO-PAGE REFERENCE SEARCH *ek 


SEARCH FROM:7#FBIS beain COS arcsramma. 


TO: ?#FCES einde COS prosramma. 
FOR ZERD-PAGE:?#CD eerste zero-pase van de COS. 
TO: ?#FF laatste zero-page van de COS. 


LISTING OF OCCURRENCES?N 


ZERO-PAGE USE IN #FSIE — &FCEG: 
(+ = INDEXED OR INDIRECT) 


CB Cl C2 C3 Ch C5 CI+ CR+ CB+ CC CD CE+ CF+ 
DB D1 D2+ D3+ D4 DS DE+ DE+ DB DC DD 
EA EA EC ED+ FA FD+ 


NOT USED OF #CO — #FF: 
Ce C7 ca 

D7 D9 DA DE DF 

El E2 EJ E& ES EB E7 EE E3 EB EE EF 

FO F1 F2 F3 Fa FS F6 F7 FB FS FB FC FE FF 


PRESS SPACE-BAR TO RESTART 
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18 REM /// ZERO-PAGE REFERENCE SEARCH /// V2.0 
20 O=KISBOIREM BASISADRES 

38 E=#7BiREM ZERO PRGE E T/M E+#F WORDEN GEBRUIKT 
4D DIM LL17, 1122, TT2, 1255, LS5:FOR Q=BTO4FELLGTOEN. G 
53 P.$21:FOR I=1T024P=O3C 

EB:LLG LDABESTAXISTA T, XIINXIBNE P-ú 

7@:LL1 LDA E+BISTA E:LDA E+93STA E+1 

SB INC E+4tJSR LLS 

98 LDA E+4;CMP E+S53BCC LLIGRTS 

18®:LL2 LOXSS 

140:LL3 LDA Te XIBEQ LL4SPHAFJSRHFTED 

128 TXA1JSR#FBB2: PLAS JSRAFFFA 

15B:LLá INXIBNE LLS;RTS 

1a@sLLS LDX E+10:DEX 

15O:LL6 INXILDA T‚XiBNE LL7:JSRHF7FD 

168 TXA; JSRHFBB2: JSRHF7FD 

170:LL7 CPX E+5:BNE LLG 

1850:LL8E RTS 

198:LL3 JSR#C5P4 ESC? -—) EXIT 
200 JSR IIOISTA E+6:LDA E+15 

215 CMPA#B15BEG LL1IZ3CMPA#SIG BER Li 12 
228 CMPS#BS:BEG LL12:CMPO#4DIBEG LL12 

238 CMPA#SS:BEQ LL125LDY E+73CPYA2IBER LLI7 
24B:L LID LDA E:SECIADC E+7:STA E 

25@ LDA E+1;ADCS0:STA E+15BEQ LUIE 
268 LDA E+2:CMP E:LDA E+5ISBC E+1:BCS LLS 
27@:LLi1 RTS 
28B:LL1i2 LDA E+145BNE LLi3 

238 LDY@IILDA CE), YiCMP E+44BNE LLIGHBEG Li14 
JOB:LLIJE LDYALILDA CE), YICMP E+10:BCC LLIG 
StD LDA E+5:CMP (E):Y:BEC LL1B 
S2B:LLik LDA CE), YI TAXILDY E+1S 
338 LDASCH" "sCPYARBIBEG LLIS 

S4B CPYARB2IBER LLASILDASCH "+" 

SS@:LLiS CMP T‚X:BMI LLIEISTA To X 

SEO:LLIE LDY E+13:BNE LLIDIJSR 1IS:IJSRHFFEDIJMP LLiD 
37B:LL17 LDA CE):YIBNE LL1D3BEG LLi2 

S80: IIG LDXAB:LDA CE: 1TAY 

338 LSRA:BCC II2:RORAIBCS IIS 

4OD CMPAKA2:BEG II 5IANDOHB7 

&1@:II2 LSRASTAXILDA TTL,X3BCC IIá 

428 LSRA5LSRR: LSRAILSRA 

430: il ANDOSFIBNE IIS 

4&4B: IIS LDY94GO:LDADS 

4585 ILS TAXILDA TT2,X;STA E+1S5FANDAI;STA E+7 
46B TYA1ANDASBF $ TAXE TYAILDYATICPKAHBAGIBEG 118 
470: 1I6 LSRA:BEC T18;LSRA 

488: 117 LSRAFORAAR2OIDEY:BNE 1173 INY 

4S@:II8 DEYsBNE IIG:RTS 

SOO:II9 LDX EsLDY E+1:JSR 1128 

518 JSRHFTDI:JISPe": "yPeP+2iC;LDYAO 
S20:1I18 LDA LE), YIJSRHFBO2:LDXaL 

SIO:sIIl1 JSREEFTFD:DEXIBNE IIi1 
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548 CPY E+73INY:BCC IF1@:LDX@S:CPYSSIBCC TITAL 
550 LDY E+6:LDA#F155: Yi STA E+11:LDANF195,YiISTA E+12 
S5@:IIt2 CLD;LDASG:LDYAS 
570:II15 ASL E+12:ROL E+t1;ROLAIDEY:;BNE II1S 
SEB ADCOHIFIJSRUFFFAIDEXIENE II12 
598 JSREF7FDiLDY E+7;LDX@E 
E08: 1114 CPXSS:BEG IIIB 
619:II15 ASL E+15:BCC IIi6 
528 LDA TT@-1, Xi JSRHFFFG 
638 LDA TTB+5,XIBEG II16s JSRHFFF4 
BAB: IIIE DEX:BNE II14:RTS 
658: 1117 DEY:BMI II15:JSR#FEBZ 
658: 1118 LDA E+1S5CMPSHEB:LDA CE):Y:BCC IIL7 
E78 JSR IILS;TAXsINK:BNE II205INY 
E88: 1120 TYA:JSRHFSBZ:T XAF JMPHFBO2 
690:II19 LDY E+1:TAXsBPL II21:DEY 
78:IIZ1 ADC E:BEC II22sINY 
718:1122 RTS 
720A TTO =P 
758 !P=t4A2C2320HP! b=kD05I2328 
740 P!'B=#98232358P=P+12 
758 TTC1j=P 
758 !P=#T50542004 FP! b=kI0D4EEDD 
770 P!'8=#5355422053P! 1 2=#9D04500D 
780 P!1E=#53554 20045 P! zi 
738 P!24=#5B54 2004 EP! 2 
8508 P!I2=#E3442200:P! Si 
Bi0 P!4GSHETLAEEI GP! 46 KAIL6CEAD 
820 P!4B=#5Z44 2201 152=#5004500D 
BIG P!SE=HTI442201 Pt EA=KIDAGESOD 
248 P'EG=HIRBTE1ZES P=P+EE 
858 TTA e=P 
SEG 'P=#B28012100;P! G=t4DSI0LLD 
2708 P!S=t4AEES2IIFP! 1Z=HADEE 
558 P=P+14 
8538 N.IsP.SE 
SBVaP, $12" sek ZERO-PAGE REFERENCE SEARCH stek "" 
N. “SEARCH FROM: "X3E!B=X 
N, "TO: "YsE! 2=V 
B IN. “FOR ZERO-PAGE:"ZiE?1G=ZiE?4=Z-1 
348 IN. “TO: "UsE?S=U 
358 IN. “LISTING OF OECURRENCES"$L 
SEB E'12=BtIF M=CH"N"GELIZ=-13G. | 
378 IF Z=UiG.n - 
388 IN. "SORTED ON ZERD-PAGE“SL 
938 E?14=(PLECH"N" IH IF E14 Gn 
199BIE?4=EIS-1 
1O1OnLINK LL@ 
1028 8=0:P."" "ZERD-PAGE USE IN #"&X" — H"8Y"E"" 
1050 C+ = INDEXED OR INDIRECT) ""? 
1248 LINK LLZ 
1058 P.'' “NOT USED OF #"&Z" — H&P: 
1058 LINK LLS 
1878 P.'' "PRESS SPACE-BAR TO RESTART" 
1888 LINK&FFEZSG. a 
A CC} RONALD BOERS 74-7-1922 
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Een floppy-disk heeft twee kanten: zoals we allemaal weten. Nu 
rijst natuurkltijk de vraas "waarom gebruiken we er maar 
sen??'Dit Komt omdat onze drive niet seschikt is voor het 
dubbelzijdig Sebruik van de diskette: omdat er maar een 
fototransistor=led paar in zit om het mbv het index-sat in de 
disk de electronica te synchroniseren. 

Wanneer we nu de diskette omdraaien zit het index-gat niet meer 
op de 9pede plaats. Voor het sébruik van deze zijde moet er een 
Nieuw index-sat semaakt worden, IN DE HOES VAN DE DISKETTE, 
NIET IN DE SCHIJF ZELF, zonder de schijf te beschadisen. 

Een manier hiervoor ist teken eerst het sat precies af (zie 
fie.) neem sen stukje karton en schuif dit tussen de schijf, 
en het hoesje. Neem ny een zen. HOLPIJP van Gmm Cin de 
ijzermandel verkrijgbaar), slijp deze event, noe iets scherper, 
en Probeer door voorzichtis met de holtpijp op hetafgetekende 
sat draaiend een saatje in de hoes te Ponsteen. 

Doe ditzelfde aan de anderezijde van de diskettesen snij met 
„en scherp mesje ook nos een tweede Nrive-protect sleufie 
eruit. 

Nu kan de schijt aan de andere zide ook aebruikt worden!! 


Mij is ter ore sekomen,: dat Uw redacteur et: tweede foto-paar 
in z'n TEAC drive wil zetten (in de clivetti wil dit niet 
zonder een sat in het chassis te boren), en daarom niet zo bits 
is met kopij op dubbelzijdie semaakte diskettes. 

Dit is ook op te lossen: door op het tneede index-sat een 
Plakkertjie te doen. - 





GELD VERDELEN | RONALD BOERS ACORN NIE PAG. 43 


Onderstaard prosramma bepaatt van een seseven Sseldbedras alle 
maselijke Combinaties om dät bedras te betalen met sutdens, 
kwartjes, dubbeltjes en stuivers. U moet het bedras in centen 
invoeren. Het prosramma maakt sebruik van de P-CHARME interpreter 
van Frans van Hoesel. Omdat de procedure BEDRAG recursief is, hanst 
het srcotste bedrag dat U kunt iaten verdeten af van de beschikbare 
seneusenruinte. 


18 PROGRAM VERDEEL- BEDRAG 

28 

ZO REM DRUKT ALLE MOGELIJKE 

40 REM VERDELINGEN AF OM EEN 

SB REM BEDRAG TE BETALEN 

EO REM IN GULDENS: KWARTJES, 

78 REM DUBBELTJES EN STUIVERS 

50 

98 PROC BEDRAGLG, Ks D, 5) 

i9® 9=7 

118 PRINT G" "Kk" *“D" "5' 

120 N=Nt1 

130 X=5-2iY=2ADt5-5i ZEK 2Dt5- 20 

14@ XIF X)=@ THEN BEDRAGCG, K, D+1, X) 

158 ELSE XIF Y)=® THEN BEDRAGCG, K+ 1,8, V) 
168 ELSE IF 2)=@ THEN BEDRAG(G+1, B, @, 2) 
170pPEND 

128 

198 PROC VERDEEL CB) 
280 BEDRAGE, 3, B. B/5) 

218 PEND 

228 

238 PRINTSI2:N=g 

248 INPUT"GEEF BEDRAG IN CENTEN: "B 
258 PRINT!’ * ALLE VERDELINGEN ZIJN: ""** 
258 PRINT" F.1,98 F.0,25 F.@1B F.B 05“' 
278 VERDEEL CB) 
283 a=@ 
298 PRINT’ " "TOTAAL *"N" VERDELINGEN. ”" * 
260 END 
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DATASTAND 


18 REM SORTEERROUTINE VOOR DATASTAND 
28 REM BESTANDSPGM VERSIE SD 

8 REM JOOP ENGELS, NIJMEGEN 

4D REM 2-5-1984 

50 Ge#2800:DIM KKI, MMES 





Letl+4s S=H+5 
120 P.&215FOR Zei TO 
KO LDA#ZZEFSTA BiLDAHEESISTA B+isLDXAisSTK K:DEXISTX J 
SKI LDY JsJSR MMBiLDY K 

MME STX HiSTX I 

:JSR MMO 

1SD:KK2 LDY I3DEY 

L1EDEKKE INYsLDACD) , Y 2 CMPOH BEG KKZISTY 1 

170CMPOHELEBCC KK4GCMPOH7EHIBCS KK43EORSHZD 

18D:KK4 STA LsLDY HiDEY 

190:KKS INYsLDACC), YrCMPOHZOIBEG KKSISTY H 

28ECMPOHEL: BEC KRE:CMPOH7BIBCS KKE:EORDHZG 

Z1B:KKE CMP L3BU KKBSBNE KK7 

EZDINC H3ING TGBCS KK2 

SB:KK7 STA TiLDY JsLDACB): YITAXILDY KsLDALE), Y 

Z4BLDY JiSTACH), YsLDY Ks TKAISTACH), YiLDA T 

25G:KKB LDXOOFINC KiLDY KiCPY M;BES KKS5CMP Li BCC MMZ:BCS KKE 
ZED:KKI INC JiLDY JrINYGSTY KiCPY MiBCE KKIGRTS 

270\ 

250: MMO LDA(B),Y;STA E:LDAAUISTA E+LiLDY ViLDA S:CLC 

230: MM1 ADC E;BCC MMZGINC E+1:CLC 

ZOO: MME DEYIBNE MMA 

E10ASLA: ROL E+15ASLA:ROL E+1 

‘S2OADCHEO1; STA E:LDA E+15ADCHSICHSTA E+1 

SEOLDALE), YISTA C, Xs INYsLDACE): Y+8TA C+i, Xi RTS 

SABA P. BEINEXTSGEND 


















18 REM BESTANDSPGM DATASTAND 
25 REM VBD, 29-2-1984 

188 REM init 

105 ?35=0i ?3E=H0E 

110 X=255tY=Si Vet 

128 DIM LLZ, 554; WEX) 

138 DIM SSY, TTY, VV LX) 

148 F‚1=0TOYiDIM FiE;SSI=F iN. 
158 NAAM, , +, . VOORL, * 
POSTCODE+ PLAATS" 
TELEFGONNR....." 
GEBOORTEDATUM, , * 
CODENUMMER. .… …. * 
44&GAFLLi ZeSIEE 
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240 TTA=IOITTI=IAITT 2e 

258 TTS=12ITT4=E TT5=7 

508 REM start 
S18aC=KE1$D=k60 EDE 

528 'DeWBSFFES205D! 4e 46085 
538 SzdsP. $12;GOS, 2008: DO 
548 P.°' “WAT IS UW OPDRACHT 7" 
SSAILI. Ds RESTORE sUz-1 

SE@ DO READ $Stij=Ut1 

578 IF $Sa"," U. 15P,$73G. i 
580 U. ?5=7E:P, $15$12 
538 GOS. (2000+ 1 OREL 
58B DA. "H“, "N", "U", 
618 DA. "B", “Z", "5", * 
188® REM nuile-routines 

1818aF=BiIF MB RR, 

1828 P.°”$7"ER IS GEEN BESTAND"" "IN DE COMPUTER!" 

1830 F=13R. 

1840LIF M= R, 

1850 P,7”$7"ER ZIT AL EEN BESTAND"""IN HET GEHEUGEN !!" 
1858 P,° "WILT U DAT OVERSCHRIJVEN"" 

1878 GOS. v3IF 0 M=Gi Telt 0 

1888 R. 

1@S3BCP.’ $5sHaS+LENCS) +1 

1188 IN. SH5IN=ABSCUAL CH) ) 

1118 IF N=@ OR N(eM R. 

1128 P." "HET BESTAND KENT"*"SLECHTS *M* RECORDS... *" 46. c 
1138cIF MeX R. 

1148 F.ZeM TO X-1sWIZEZiN. &R. 

1158VP.* (J/N) 2" 

1158 DO LI.DsU. ?E=74 OR ?E=78 

1178 OsdsIF E74 Oet 

1188 P, $2E' ;R. 

119DxP, ” “stem RECORD “Rei” mem" sIF FP." CEN)" 

1200 P."';F,ZeP TO QG 

1218 P‚, SVVCREV+Z)' IN. FR. 

1228yF, Ze8 TO 21B2Z+35 

1238 P‚ SVVCR&V+Z) 

1240 F. A=LENVV(R«V+Z) TO 31 

1250 P‚* “IN, sP. SVVCR&V+B)" 

1258 N. iP." ER. 

1278zF. Z=@ TO 2 

1288 P. SVVCR*VeZ)' 

1298 N.3P."7""""jR, 

15%sP." “OP WELKE SNELHEID?" 

1518 P.""1. Z8@ BAUD* 

1528 P,"*2, 1288 BAUD”" 

1538 P.' “WAT IS UW KEUZE (1-2) ?" 

1548 DO LE.DsU. ?E)48 AND ?ECS1 

1550 SCOS:IF ?E=5@ FCOS 

1568 P. $2E' 'iR. 

2008 P. "acorn atom bestandsprosramma"’ 

2018 P.° "U KUNT KIEZEN UIT:*’ 

2020 P‚° "Hi HELP CTOON OPDRACHTEN) * 

2038 P.'*“N: NIEUW BESTAND OF UITBREIDEN" 

2048 P‚7"V: VERANDEREN IN HET BESTAND" 
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ze59 P."”W: RECORD WEGVEGEN IN BESTAND" 
2058 P‚*"T: BESTAND TONEN" 


2070 BLADEREN IN BESTAND" 

2288 ZOEKEN IN BESTAND" 

2038 SORTEREN OP SUBSTRING" 

z100 LABELS MAKEN (PRINTER)" 

2118 EINDE \ BESTAND WEGSCHRIJVEN"? 
2128 





3008 P. "nieuw bestand \ uitbreiden!” 

3018 P. "ER ZIJN S MOGELIJKHEDEN: “” 

3028 BESTAND INLEZEN VAN CASSETTE" 

3058 NIEUW BESTAND MAKEN" 

304B P." "U: HUIDIG BESTAND UITBREIDEN" 

305 P.' "WAT IS UW KEUZE (L:N,U) 2" 

S06B DO LI.D:U. ?E=76 OR ?E=78 OR ?E=ESIH=IESP, SH’ 
3878 IF 285 GOS,L:IF MDO R. 

3088 IF HO7TE6 Gan 

SOM REM tees van cassette 

3i0D GOS. ssG=FIN""sM=BGET G 

3118 F.I=8 TO M-1sWII=BGET B 

5128 F.J=3 TO Y;SGET A,T 

3158 VVCI=Ve jj =Ti T=TeL. T+1 

3148 N. EN. +R. 

3158 REM nieuw\uitbreiden 

3i68NGOS. dr P‚ 6123 C=D 

3178 P, "U KUNT NU GEGEVENS INVOEREN, ** 

3188 P. “GEEF NA IEDERE INVOER EEN RETURN""* 

3188 P, "ALS U WILT STOPPEN, "" “TYPE DAN *4’ + "RETURN * 
3208 '#DE=#SIEDIP. "DRUK OP DE SPATIEBALK" 

3218 DO LI.D+U, ?E=S2IP. $12 

S22BeP,'' “wam RECORD "Mei mamatt r 

3238 J=TsF,I=D TO Y 

524BoP. $SSI; IN. STsL=LENLT) 

5258 IF $T="t" TSR, 

5260 IF T+L+ijlLi I=YiN. 3T=JiG. € 

3278 IF L)TTI P‚°$7"MAXIMRAAL “TTI TEKENS! *"’ 46.0 
3288 VUCMeV+I JT 3 T=T lt 

3238 N. sM=M+1tIF MIX Ge 

3SBAFP, * $7"GEHEUGEN VOL! "' ;R, 

4988 P. "veranderen in het bestand" ' 

4018 GOS.,asIF F R. 

4020 $S="GEEF HET NUMMER V/H RECORD DAT UWILT VERANDEREN * 
483 GOS,csIF N=B R. 

404B P,$12"U KUNT HET RECORD NU" "REGEL NA REGEL CORRIGEREN. "7 
4D5B P," "BLIJFT EEN REGEL ONVERANDERD: * 

45e "“TYPE DAN '&" + "RETURN? *** 

4578 sk RECORD PN" steken t > 

4080 P=N-1i;F.G=D TO Y 

4090 RaPxy+Qs HR+ 1 

4&1BOrP. SVVR 

4118 IF LENCWERDD=LLZ P‚* 

4128 DO P. $S9:U.C, =LLZ 

4150 IN.$S;sIF $5="3" G,m 

4148 K=LENCS) $L=K-LENCVVR) 

4159 IF K)TTR P.'&7*MAXIMAAL “TTG" TEKENS!""!;G. r 
UIED IF T+L)iLi GOS. 4:b=Y:G. Mm 
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4178 IF N=M IF O=Ys;T=T+K+ 156. | 
4188 IF L=$ G,t 

4138 IF L)8 I=T-1:J=VVHs 
4230 IF LB I=VVHIJ=T- IK: 
=I TO J S.KsZ?L=IZiN. 
=H TO M&Vs VVZEVVZeL EN. 
4258 T=T+l 
42401 SVVR=E5 
4A250mN. sR. 

5000 P. "wesvesen 
5018 GOS.aslF F R. 

SEE SS="WELK RECORD WILT U WEGVEGEN " 

5228 GOS.ciIF N= R. 

5040 P=DsQzYsR=eN-15 GOS. x 

5950 P,' "WILT U DIT RECORD"' "WERKELIJK WEGVEGEN" 
S3EB GOS. vs IF O=@ R. 

v078 IF Nei IF MelsTeli®:G. i 

SO88 P=VVCRKV) 5 AmVV ANV) LPG 

503 IF N=MsT=P;G. h 

5108 F.Ze=Q TO T-45Z22L=?ZiN, 

Si18 F‚ZeRsVel TO (M-I) Vi 

5128 VVZ=VVCZ+VD +LIN, 3T=T4L 

SiS@hI=-15D0 I=I+itU.W7I=R 

Si4B F‚J=D TO M-À 

S1S® IF WID R WIJ=WIJ-i 

SiE@ N.3IF ICM-1iF. Jel TO M-2SW? JW? CJH IN. 
S178iMeM-isR, 

5088 P. "tonen v/h bestand” 

EG18 P=BiQ=Y 

EO282G05. as IF F R‚ 

5058 P. * "GESORTEERD" ;GODS. v; F=0 

5048 P."*U KUNT KIEZEN UIT: "" 

6052 P‚.'“Az ALLES" 

6060 P‚°"E: EEN" 

6878 P‚'"B: BEREIK" 

6880 P,* "WAT KIEST U (A:E:B) ?";DO LI.D 

6090 U, ZE=ES OR Es65 OR ESES 

6108 P.$2E';3IF ?E=66 G.t 

6118 IF 2E=65 IwisJeM3G. u 

6120 $S="WELK RECORD * 

615D GOS.c3 LIF Ne R. 

E14G I=NtJeNiG. u 

G150t$S="EERSTE RECORD " 

6168 GOS.c3IF Ne@ Nel 

6170 TeNi$S="LAATSTE RECORD " 

6180 GOS. cs IF Ne3 Nam 

6138 JaNsIF JCI P." "KAN NIET!"';G. t 

6280uUP. $125IF U=B H=5iG. w 

6210 P.* "HOE WILT U DE SUBSTRINGS ZIEN?"' 

6220 P.'"1, ONDER ELKAAR" 

6238 P.' "2, ACHTER ELKRAR" 

6248 P‚*" “WAT KIEST U (1-2) 2" 

6258 DO LI,DsH=?E-48 

5258 U.HG AND H(SIP.H' 

E27BuP." "WILT U DIT PRINTEN" 

6ZEG GOS. viP. $12IF O P.$2 






=1 
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62399 IF O=0; ?#EE=1 

6308 F.N=I TO J 

6318 R=N-1:IF F R=W?R 

6520 IF H=t GOS, x 

6538 IF H=2 GOS. y 

6348 IF H=3 GDS, 2 

6250 N.:P.SESISER 

7009 P, 'biaderen""" 

7018 GOS.asIF F R. 

7028 $S="VYANAF WELK RECORD WILT U BLADEREN * 
7038 GOS.csIF N=0 Nei 

7048 ?C=DEP, " “5 P=Di ei ReN-1 

7858 DO GOS, Ks RER+1F IF R=M R=O 

7OED P,""DRUK OP EEN TOETS, 'S' IS STOP""""sLI.D 
7878 U. IE=8SHIC=IZBP, * "ER, 

8008 P. “zoeken""' iP=DiG=Y 

8019 GOS.asIF F R, - 

8820 IN."GEEF DE BEGINLETTER(S) "$S$IF LENCS)=8 R. 
8058 L=LEN(S) 1 sF=li ?4EES1 

8B43 F‚R=B TO M-13HER*V 

8054 F,I=0 TO Yi J=H+I 

8250 F‚K=0 TO L 

8578 IF KPSOK?IVVT K=liN. 56. k 

8588 N. ;F=0; GOS. x 

BOIAKN. iN. FIF FP,’ "TEKST NIET GEVONDEN! ** 

8122 P. $15:R. 

3228 P. "sorteren" 

Wi IF M(2 P,'$7"ER VALT NIETS TE SORTEREN! "' ;R. 
3828 P. “U KUNT SORTEREN OP: "" 

3058 F.I=8 TO YiP.'I" “$SSIiN. 

3040 P.°'"WAT IS UW KEUZE (B-"Y") 2" 

9058 DO LI.D:U, ?E)47 AND ?E(Y+493P, 62E 

VED 'HBD=IE-4B 2 HBE=M HDE =V 

2870 LI. #2800: R. 

10928 P. "tabêis”"' ;G. a 

11009 P‚, "einde“"” 

11818 GOS. asiF PF P.''4 

11020 P.° “WILT, U HET BESTAND WEGSCHRIJVEN"* 

11858 GOS. vi IF O=8 G. 11110 

11840 REM op cassette opstaan 

11859 GOS, s;G=FOUT"" 

11859 BPUT G,M3WAIT;WAIT:WAIT 

11878 F.I=@ TO M-1sK=lkV 

11080 BPUT B,W?I;WAIT:WAIT:WAIT 

11833 F‚J=8 TO YsSPUT A, VV(K+J) 

11188 WAIT:WAITsWAIT EN. :N, 

11110 P.* "WILT U WERKELIJK STOPPEN"; GOS. vi IF O=0tR. 
11120 P.S12‘acorn atom” 

11128 END 








De toetichtins op het bestandsprosramma DATASTAND. Het prosramma is 
onder andere seinspireerd os twee eerder verschenen 
bestandsprosramma's: het ene is van de hand van dhr. Groeneveld uit 
Leeuwarden en werd op 19-15-1982 door Hobbyskoop vitsezonden in 
Basicode-I. Het andere werd seschreven door Paut Smulders en 
gepubliceerd in de HOBBIT van jan. /feb. 1984. 
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Uit de bewerkins van deze 2 prosramma's resu!tteerde een amalsaam 

waarin bovendien de nodise ‘eisen wensen en behoeftes werden 

insepast: zoals specifieke afdruk-routines al naar selans aanta! en 
inhoud v/d substrinss in een record: een sorteerroutine in 

machinetaal en tees/schrijf-routines van/naar cassette in 2 

snelheden naar Keuze, Dit alles eist nousal wat van de specifieke 

contisuratie van de Atom: 

A. „en zeer sroot geheugen: dat als voist is benut: 

1. #2808-#28BF : sorteerroutine in machinetaal 
2. #2988-#405F : het eigenlijke prosramma 
Se H4LDO-HEIFF : ruimte voor de data-opstas 
=) 1IEK RAM-kaart nodig 
&. HE20D-KIFFF : ruimte voor de arrar-opsias 

B. de FP-ROM maa niet sebruikt worden 

C. de Josbox moet aanwezie (en ingeschakeld!) zijn, 

As Al: de sorteerroutine maakt gebruik van de ZP-adressen #B8-#BF: 
dit werd met name gedaan om in de ontwikkel-fase zoed te 
kunnen testen met een disassembter/traceri mensen die een 
disk hebben kunnen deze adressen echter Gok verplaatsen naar 
bv. #78-#7F, de floatina-point werkruimte. Pas dan ook restl 
IEB aan. 


Ad A2: hierop voist Straks een uitvoeriser toelichtins. 

Ad B : de FP-ROM moet wet aanwezis zijn, mi. voor het doorkoppelen 
van Josbox=commando's! 

Ad C : de Josbox wordt gebruikt: enerzijds voor read, data: restore 


Statements, anderzijds voor het lezen en schrijven van en 
naar cassette op 308 en/of 1200 Baud: beide funkties kunnen: 
net enkele Kleine wijzigingen: ook vervuld worden door de 
Toolbox van Program Power. 


Heeft U seen IEK-kaart, dan Kan het prosramma eventueet toch 

Sebruikt worden. Wijzis het daartoe bv. als volst: 

1. Kort het prosramma in, bv. door verwijdering van REM 
statements, zodat de top onder #4000 komt te tissen. Zoals U 
ziet wordt overisens verondersteld dat U 'varkentjes’ neett 
sestapetd... 

2. Zet in reset 118 de variabele X (= max. aantal records) bv. op 
108, waardoor bij Y=S (# aantal substrinss -1) de DIM-pointer 
order adres #I00D eindist. 

5. Zet in resel 228 de variabele LLO (= start data-opstas) op #9008 
en LLI (= eind data-opslas) op #37EF of #OFFF. 

Dan nu een toelichtins bij het prosramma zelf: 

185 2 verplaats DIM-pointer naar #8200. 

115 3 X bevat het maximum aantal records v/h bestand. 
Deze waarde mas niet sroter zijn dan 255! 
Y bevat het aantal substrings per record min 1, want 
substrins 8 wordt ook sebruikt. De maximum waarde list 
onseveer bii 6 of 7î bii hosere waarden moet net 
prosranma worder aansepast,: met name de print-routines. 


128 : LL bevat enise huip-variabeien 
5 is een input-strings W is de sorteer-arrar 
150 t SS bevat de adressen v/d substrins-namen (resei 158-200) 


TT bevat de tabulator-posities (reset 240-250) 

VV bevat de adres-pointers naar de eisenlijke data 
1468 * de substrins-namen worden hier s@dimensioneerd op 

max. 17 Karakters. 
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159-208 : aantat en inhoud der substrins-namen kunt U evt. naar 
eisen behoefte wijzigen: het prosramma zeif hoeft daartoe 
NIET veranderd te worden: vitsezonderd de afdruk-routines 


Key en Ze 
228 2 zie vorise pagina beneden: sub 5. 
258 z LL2 wordt alleen sebruikt bij Wijzisina van een record: 


zie resels 4118-4120, 
249-258 : TTO-TTS bevatten de max. lenste der afzonderlijke 


substrinss en zijn aansepast aan aanta! en inhoud 
daarvan. Indien alle substrinss op 1 reset komen te 
staan, mas het totaal niet meer bedrasen dan 89 (max. 


aantal Kolommen per resel oP mijn printer), 
519-520 : routine voor iniezen van 1 toets —) GET-funktie 
528 : NB. Het prosramma is resel-seorienteerd en mas dus 
absoluut NIET hernummerd worden! 
1898-2008 : nuip-routiness 
* a: ben c spreken voor zichzelf. 
* d 3 zet de sorteer-array vanaf waarde M op normate, 
deez. Op onsesorteerde volsord 
* v 8 hoofd-invoerroutine bij alle ja/nee vrasen. 
* Xr yen zi afdruk-routines naar scherm en/of printer. 
OPM. 1. De door mij sebruikte printer (Seikosha GP-100A) hoeft 
niet seinitialtiseerd te worden. Heeft U bv. een Epsôn 
erinter: dan is dit weil nodie. Het best kan hiervoor een 
subroutine seschreven worden. 
2. Bij vitvoer alleen naar scherm schakelt het prosramma 
de pase-mode in. 
De afdruk-routines zijn specifiek voor de hier sebruikte 
substrinss: 
X 2 drukt record R+1 af: met de substrings P t/m GQ ONDER etkaar, 
y t drukt record R+1l af in 3 regeis: tátelkens Z substrinss NAAST 
elkaar. 
z : voor de vervaardising van labets: 
drukt de eerste 3 sybstrinss van record R+i ONDER etkaar af en 
siaat daarna 6 resels over, 
OPM. De afstand tussen 2 labels bedraast normaal telkens 9 resets. 
Ss 7 keuze lees/schrijf-snelheid van en naar cassette. 
Heett U een PP Toolbox: verander dan ’SCOS' in 'VECTORS en 
"EFCOS’ in "VECTOR" 
De rest van het prosramma spreekt (hopelijk) voor zichzelf. 
Nos enise opmerkinsen m.b.t. de sebruikte variabelen: 
F en 0 : logische variabelen (B of 1) 
M t aantal in het bestand aanwezige records 
pointer naar top data-ops!as 
mode van de cursor 
D t start-adres GET-routine 
2E z ASCII-waarde invoertoets. 














Apart wordt de source van het machinetaal prosrämma sepubticeerd 
waarvan de obiectcode op #28500 behoord te staan. Eenmaal 
insevoerd kunt U vervolsens het seheel naar cassette Schrijven: 
bv. als volat: *SAVE"" 2800 4059 en Klaar is Kees! 


Nos enise slotopmerkinsen: 
* Gezien de sorteer-snelheid van het prosramma is het niet per se 
reodzakelisk om naast de data Jook de sorteer=array naar Cassette 
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te schrijven. Verander daartoe evt. de resets S890-35148 en 
11848-1110D. 

* Wanneer U het prosramma via de normale wee (END) of met 'escape' 
hebt verlaten: kunt U het onsewijzisd weer starten met 'GOTO 9'. 
Wilt U echter hetemaai oonieuw beginnen, geet dan een 'RUN'. 

Tot dit laatste bent U overigens sedwonsen indien U of de 
computer zen 'reset’ hebben vercorzaakt, omdat dan nt. de 
array-startadressen sewist zin! 

Schaket tenslotte na veriaten van het prosranma niet de 
tent-editor in (zo U er een hebt), want dan wordt de objectcode 
vanaf #ZE9B en wellicht zelfs het hoofdprogramma overschreven! 

* Het prosramma Werd oorspronkelijk seschreven voor het beheer van 

het ledenbestand van een harmonie, Dit maakte zowel de invoer van 
de geboortedatum als een speciaat codenummer noodzakelijk. De 
seboortedatum werd daartoe ingevoerd als een seta! van 6 cijfers 
in de volsorde JJMMDD, zulks voor sorteer-doeleinden. Het 
codenummer telde max. 7 tekens. De betreffende waarden zijn 
opsesiasen in TTA en TTS (regel 250). 
Het prosramma is zonder meer aan te passen aan Uw eisen 
behoeften. Zelf heb ik sewijzisde versies semaakt voor o.a. een 
bestand van LP's en cassettes en een telefoontijst voor de 
studententiat waar ik Woon... 


L__tartsre Foote L___ 


Sinds enige tijd bestaat er een Federatief Hardware Ponda. 
Uit dit fonds worden de door de leden gedane ontwikkelingen 
van hardware bekostigd. Voordat tot aankoop van de ontwikkeling 
door de Pederatie wordt besloten, zal eerst onderzocht worden 
of er bij de regio's wel belangstelling voor bestaat. 

Een door de federatie benoemde hardware comissie zal daarna 
de ontwikkeling testen op zijn bruikbaarheid/werking. 

Dit, om te voorkomen dat er net diverse kaarten in dezelfde 
geheugengebieden gewerkt moet worden of problemen anderazins 
optreden. De federatie vergoedt uiteraard alleen eenmalig 

de materiaalkosten etc. 

Het complete ontwerp en alles wat daarbij hoort soale bv. 
documentatie ‘wordt dan eigendom van de federatie. 

Voor vragen en/of opmerkingen betreffende het hardware fonds 
kunt U máj bellen. 


A. Jongeling 
secretaris F,A.C.C, 
Tel: 055 — 417314 
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Met Hexit is het moselijk data-tabellen te maken en te veranderen 
en seheusentocaties te wiizisen 

=== STARTEN -—— 
Type int HEXIT bbbb:eeee 
Waarbij bhbb het besinadres is en eeee het eindadres.Als u eeee 
weglaat neemt Hexit 8. (dit eindadres is nodis om data tussen te 
voegen of wes te halten) 

=== EDIT ——- 
Er zijn in HexKit 2 verschillende modes mogelijk nl.de EDIT-mode en 
de KOMMANDO-mode. Hexit besint automatisch in de EDIT mode ats U 
bijvoorbeeld insetcetst hebt HEXIT #2800. #28Ff 
ziet u het voiaende? 


2800: 48 41 4E 4E HALL 
2884: 4F E4 2E FF 0. 
enz. 


Linksonder staat het woord-EDIT en tinksboven staat op de 4 een 
eursor.Aan de linkerkant staat een Koiom adressen daarnaast à 
kolommen met data in HEX.Tenstotte staan aan de rechterkant ú 
Kolommen ASCII. Totaat staan er 14 resels met data. Met de cursor 
pijtties-toetsen kunnen we de cursor over de data verplaatsen: 
pijitie boven/beneden = cursor saat naar boven. 

pijttje links/rechts = cursor saat naar rechts. 

Wanneer U de SHIFT toets samen met een van de piilties indrukt saat 
de cursor de tesenoversestetde Tichtins uit. Merk op dat de cursor 
voortdurend in het hexadecimale sedeelte blijft. Als de cursor aan 
de rechterkant staat en u drukt op pijltje tinks/recht dan zal de 
cursor weer naar links saan maar dan een reset taser. Als de cursor 
aan de boven- of onderkant van het scherm staat enu drukt op 
Pijitie omhoos ot pijltje otmlaas dan zat de data respectiveltijk 
naar beneden of naar boven scrollen. Als u een toers indrukt met 
een hexadecimatewaarde (Q-9 of A-F) zal deze in het geheugen sezet 
worden en tevens op het scherm verschijnen.De cursor zal dan wen 
HEX-karakter opschuiven. Een votsend ingetoetst HEX-karakter 
verschijnt dan op de voisende pPlaats,De twee karakters waaruit een 
hexadecimaal! setalt bestaat worden NIBBLES senoemd. Dus wanneer u 2 
nibbles intoetst wordt 1 byte in het geheugen veranderd:de cursor 
verplaatst dan naar het volsende byte. Met de DELETE toets kun u de 
cursor van het ene NIBBLE naar hetandere verplaatsen. 

ASCIE ——— 

Ats u de COPY toets indrukt verschuift de cursor naar het 
correponderende ASCII teken (Als dit seen normaal ASCII teken is 





dan zal dit op het scherm verschijnen als een punt.) leder 
insstoetst karakter zat nu op de plaats van de cursor verschijnen 
en de cursor verplaatst naar het volsende byte. NB. in plaats van 


een NIBBEL verschuift de cursor een BYTE. De DELETE toets wordt dus 
sewoon ats een ASCII karakter beschouwt en verschijnt op het scherm 
ais zen seinverteerd pijltje achteruit. Met de COPY toets kan de 
cursor weer naar het HEX-deel verplaatst worden. 
=== KOMMANDD ——— 

Wanneer u in de EDIT-mode de ESCAPE indrukt Komt u in de 
KOMMANDO-mode te staan. 
Onderaan het scherm verschijnt nu de reset: 
KOMMANDO (B/I/E/S/B/ESC/Z/DEL/):U kunt nu een van deze ietters 
intoetsen. 

stok Kommando’ s sok 





tertva naar BASIC 
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Onderaan het Siherm VEersohivnt: 

HASIC:WEET JE HET ZEKER CJ /N) 

U meet dan Ja of Nee intoetsen. 

Isse Invoegen van Karakters 

De data Wardt vanaf de geheugenplaats tet aan het eindadres 
SPaeschaven en De de Plaats Waar de zursor staat kant het setat UO. 











Als net mindeadres Kleiner af gelijk ts aan het besirnadres zal dee 
vamputer sergt vrasen EINDADRES: 

U mmet dar zerst men eindadres invoeren: daarna saat HEHIT weer raar 
de EDIT mode 

Als het  eindadres 9rvoter AS dan met besirnadres Kkamt onderaan het 


scherm te Staart: 

EINDADRES: #e CJAND 

Wanreer u J indrukt zat HEXIT wen Karakter invoeSern. 
Als u N indrukt vraaat HEXIT sem nieuw 2indadres. 
Wanneer U J indrukt zat de vraag rus 





men keer SeSteld Warden. Kunt 
zoveel Plaatsen vrijmaken als U Wilt Ceverntuesl met REPT toets). 
Leene Eindadres invoer 
Hexit vraast alleen: 


EINDADRES: 
Nadat u zen eindadres im HEX nekt insmvoerd gaat HEXIT weer raar de 
EDIT made. 

Gee. Start tekst 
Hexit saat weer terus maar het adres wat u met G ingevoerd hebt of 
naar het adres bbhbb. 

G.....Ga naar 
De camputer vraagt: 
GA NAAR: 
Je moet dan en (hexadezimaal? adres invoeren HEXIT gaat dan weer 
naar EDIT mode en besint op het zoiuist insevoerde adres. 

ertt BELANGRIJK anton: 
Ats HEXIT am een adres vraaet (GA NAAR of EINDADRES) gan zijn er 
mos E moeetijkheden vt. 
RETURN toetsiAdres Wardt gelijk aan 8. 
ESCAPE toets:Adres waardt riet veranderd, 

Z.....Einde data 
Hexit zorst dat het eindadres rechtsonder Komt te staan en d 
cursor linksander,De cursor btidft in het HEX-deel Dek in _d 
ASTII-dael! 

ESC. ..Eai t-mode 
Keer weer terus naar de EDIT-mode. 

DEL...Wissen van men EYTE 
Het karakter dat onder ce zursar werdt Wweogehaald en de rest van de 
data tut aan het.eindadres Wardt aanseschaven. 
De computer stett dezelfde vrasen als bij ’I’, 


LD 


Er is „en Kommando dat Tiet in de Lijst staat en dat is het 
vraagteken: ? 

Wanneer U dit intoetst verschijnt oP ket Scherm zen beknopte 
verklarins van dee mogelijke Kommando’ s 


ZÜRG ERVOOR DAT U ALLEEN KOMMANDO'S INTGETST ALS U IN DE KOMMANDO 
MODE ZIT. ANDERS KUNNEN DE INGETOETSTE KARAKTERS IN HET GEHEUGEN 
GEZET WORDEN EN ZO DE DATA VERNIETIGEN. LET DOK OP DAT U GEEN 
HEXADECIMALE GETALLEN INTOETST ALS DE CURSOR IN HET ASCII GEDEELTE 
GTAAT OF ANDERSOM. 
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5 REM LADEN IN #52700 

18 P,SIHIPHEL=OIP, * " 
20 P. “edit? 
SUP, "CURSOR TOETSEN :BEWEEG CURSOR"? 
GAP. “COPY zASCCII/HEXADECIMAAL * 
SUP. "DELETE st INKER/RECHTER HEX KAR, * 





EUP, "ESC s KOMMANDD '? 

ZOOP, "Kkommarnda'? 

OP, “RE BASIC"? 

JUP, "I zINVOEGEN CTOT EINDADRESG? 
1OAP. "DELETE :WISSEN CTOT EINDADRES) "7 
110P. "E zEINDADRES VERANDEREN" 
1EGP. “"G zGA NAAR''7 
150P. "ESC sEDIT" 
14BP. “5 :GA NAAR BEGINADRES"? 
150P. "Z :GA NAAR EINDADRES"" 


1EUP. “VOOR HERHALING I/DEL:DRUK OP J' 
170P. "DRUK OP DE SPATIEBALK" 

188 F.X=HOIED TO HEIFF Xe Xi EBDIN. 
190COPYHEOOD, HEIFF, 5 

SOUL II. HFEIGGP. &1E 

ZIOLI. VVEO: HEODD SE. 











9 REM AUTEUR ONBEKEND 
5 REM LADEN IN #2920 

18 #LO. “DHEX" 

20 PHZGEHIEF PHLE=D 

20 d=D5ON. G. GO 

48 P, “DRUK RETURN VOOR: "&A’ 

58 IN. "BEGIN ADRES"A 

69 P.$IESLILF TED 

78 DIMVVESsF, X=0TO85i VVXEHEEFFF SN. 3E. X=0TO1 P=A 
23 'T=H1iDEDBOEST!A=kiFIDIELS 

30 S=T+85 

199: VVZ 
118 LDA914: STAHEE 
128 LDAHSU: STAHSEILDAHSL ; STAHS7 
130: VVI LDADHED; STAHES 
149 LDXD:STXHEA4 
150: VVE LDAOHZAISTACHBG, XO +LDYAG 
168 BIT#HOD2: BMIP-3 
178 INCHB4ASJSR VVS ADRES 
188 INCHS4: INCHEA 

13B: VVE INCHEA 
200 LDACHBE), Y 
8 ISR VV10 
g 
g 







INY:sCPY@4 3 BNEVVZ 
LDADZFADCHDA4 5 STAHEG 

z40 LDYOD 

258: VV4 INCHEG Ss INCHEA 

ZED LDACHSE), Y 

: BMI VVS 

CMPAHZOI BES VVE 

ZI8E VVS LDADHZE 

208: VVE CLCFADCHHZOIEMI VV73EORDHED 
210:VV7 STACHEG, XO 3 INYsCPYO4ASBNE VVA 
Er CtCSTYASADCHSE: STOHPEIRCT VVO1 INDHET7 
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338: VVB INCHEGSBNEP+4 3 INC#BS 

348 DECHSB BNEVV2G RTS 

E58:VV3 LDAHSTIJSR VV1O:LDARSE 

ZEE VVIE PHA:LSRAILSRA; LSRAG LSRA 

378 JSRVV11:PLA 

388: WIL ANDE#FSCMPBRAFBCC VVIZ 

538 SBCASIBNE VV1J 

408: VV12 ADCHHTS 

41: VIE STACHSG, X) 

428 INC#B4:RTS 

43B:VVI4 PHP:CLD:STXHEGGSTYHES 

&4D:VVIS BITHBOO2IBVE VVIE 

450 JSRHFE715BCC VV1S 

4&EB: VVIE JSRHÉFBBA 

ATO:VV17 JSRÉFE713BCS VV17 

488 JSRÉFEJIsBCS VV17 

498 TYAICMPAGSBER VV1B 

508 CMP27: BEG VV16 

S18 CMPAHE: BEG WV19 

520 JMP#FER2 

528: VV18 AND&1;ROL#BOZI EROL A 

548 JMP#FEEO 

558: VV1S LDAIG s JMP&FEGO 

SED: VV29 SEC:LDA#ESS SBCHEB:STAH7 2 ANDIHSCHLDKERLOESTXH7 1 
578 ASLA;ROL#7 13 ASLA:ROLH7 15 ASLA:ROLK7 15 STAR7OILDAH7 2 
588 ANDA3ICLCS ADCH7F 

598 ANDD#7; TAXICLCHLDAT, X:ADCH7A5 STAH?OILDXABIBITKTFSBPL P+4 
688 INCH7O:LDACH?O, X) EORGHSOI STA(H7D, OI RTS 
E18:VV20 LDAA#S2; STAK2OE: LDASHFE ; STAR2OS 

E20 LDAAB: STARE: STAHES 

638 JSRRCBBCs JSRKC2I1IBES VVBSs JSRHCEBC 

648 LDYA#B2: JSRHCSCD 

E5B:VVBE JSRECSCBILDAHS2: STARED; STAHBI ; LDAKSTS STAEL ; STAHBA 
6ES LDAAGISTAK7F 

678: VVES LDASLZI JSRAFFFG 

682 LDX91S:LDAALG: ISRIFFFA 3 DEX + BNEP-4 5 JSRVVD 3 JSRVV293 JMPVVEZ 
E98: VV21 JSRYV14 

709 CMPO#ID:BNEP+SIJMP VV6S 

718 TAXIBEB VV255DEXIBER VVSO 

728 DEX:BEG WS1 \ BENEDEN 

738 DEXIBNE P+S54JMPVVSS 

TAB DEX:BER P+53 JMPVVS3 

750 JSRVV23:LDA#7F 3 ANDR4 3 EDRAG + STAR7F 5 JSRVV2S s JMPVVZ1 
7EB:VVID JSRVV23 

775 LDA#72: CMPA#37 1 BNEVV2S 

788 CLC:LDA#3G: ADCHÁ + STAHED 

739 BCC VV22s INCHST 

882: VV22 JSRVVO 

B1AsVV23 INCHBSSIBNE VV245 INCHEA 

B20:VV24 JSR VV2IGJMP VV21 

83e: vV2S JSR VV23 

840 LDA#72:BNE VV27 

858 SEC:LDAKEG: SBCRASSTAHBOIBCS VV26:DECHSI 

BEB: WV2E JSRVVO 

870:VV27 LDA#SIFBNE VV28 

E89 DECKZA 

BIB: VVR DECHESS ISRVVZIS JMP VVZI 


|Pas. E2 ACORN NIEUWS [HEXIT 


SOB1VVIL JSRUVV2I:LDAN7 2: CMPDHI4GIBCC VVSS 

918 CLCsLDA#BIIADERGS STARBBIBCC VVS2EINCHSE 

28: VVI2 JSRVVO 

938: VVIS CLC:LDAAGF ADCHSIG STAHBIS BCC VVIG INCHBA 
S4B:VVI4 JIJSRVV2IIJMP VV21 

SSU: VVIS JSRVVZGILDAH7ZICMPB4FBES WVST 

58 SEC:LDA#SA:SBCH4STAHBDIBCS VVIESDECHEL 
370:VV35 JSRVVQ 

EB: VVI7 SECILDAHEIFSBCH4ISTAHESIRCS VVIB:DECHER 
398: VVEB IJSRVV2I: JMPYV21 

1980: VVSS LDX#7FICPKO4FBNE VV4D 

1818 LDXAB:STACHES, X) 

1828 JSRYVE: JSRVV2A 5 JMPUYVSD 

1058: VV4D CMPAH7FIBER VV4S 

1048 JSR#FB7E:BCC VV41:LDAO7 ; JSREFFFA 5 JMPVVZI 

1858: VV4i LDXOOFBITH7F:BPL VV4AZ; STAKES 

1960 LDACHSI, X) 

1978 ANDO#&F Os ORAHEB ; STACHBS, X) 

1088 JSRVVG:LDAHT7F s EORO#BO: STAR7F 

1938 JSRVV23:JMPVV3O 

11855 VV42 ASLAASLASASLA; ASLA: STA#BEELDACHES, XJ 
1119 ANDA#F:ORAHBE: STACHBI. Xd 

1120: VV4S JSRVVO;LDA#7F ; EORO#ED: STAR7F 

1138 JSRVV23: JMPVV 21 

1148: VV52 JMPVVE2 

1158: VV5B \ input buffer 

1158 LDAA#SA: JSRÉFF F4 

1178 LDYA0ISTY#HE45STYHES 

11805 VVS1 JSRUV145 TAX 

11398 CMPA#IBIBEQ VVS2 

1299 CMPS#EDIBEG VVS57 

1218 CMPA#7F:BNE VVSS 

1228 CPYSO:IBEQ VVS8 

1230: VVSS JSRHFFF4IDEYGBPL VVSI 

JSREFSTEGBCC VVSG 

LDAD7 5 JSREFFF 45 JMPVVSI 

BTAREO, YSTKAGJSREFFFG3INY:CPYD4GENE VVSI 
JSRVV 145 CMPA#7F; BEDVVSSiCMPDISSBNE VVSG 
1238: VV57 LDRAHFF:STA#ED, Ys LDYAU 

1298: VVEO LDXAE:LDA#ED: Y 

1340 BMI VVEi-1 

13518 ASLA:ASLA:ASLA: ASLA 

1528: VVS5I ASLA: ROLHEG s ROLHES 

1558 DEX:BPL VVSSsINY:CPY@4s BNEVVED 

1548 RTS 

1350: VVEL LDAALSIJSRHFFFA ctear 

1360 LDXOKEB:LDAIHZOs STAHELAD, Xs INXS BNEP-4: RTS 
1370: VVEZ \ edit mode 

1388 JSRVVELIJSREF7D13 ASP="EDIT"sPePtb. Ps CLDASH20: STAHBIEG 
139OLDXBRFFITKSs JMPVV21 

1408: VVEIJSRVVEI: JSRHF7D13 ISP="KOMMANDO CH/I/E/S/G/ESC/Z/DELD :" 
1419P=P+tL. PEENOP 

1420: VVE4 JSRUV145CMPORIBIBEG VVGZICMPDK4ZIENE VVET7 
1438 JSRVVEIGJSRHF7D1G ISP="BASIC:WEET JE HET ZEKER (J/N) 
144AP=P+L. P5CNOP 

1458: VVEE JSR VVI4SCMPSHAAGBNE VVESIJSREFTDIs Jt 2P=125 PePr1 
1468 %/ BYE FROM HEXIT =P+L. P+; P? D:P2-2=18: ENOP 
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1478 JMP&C2CF 

1480: VVES EMPORGESBNE VVEE 

1498 JMPVVEZ 

1500:VVE7 CMPOR47IBNE VVEE 

1518:0V7Z 

1520 JSRVVEI3JSREF7D1 5 IEP="GA NAAR"; P=Pel. Pi: ENOPs JSRVVSO 
1538 LDAHGAs STAHBO ; STAKE! TA#BB; LDAHES; STAKEL ; STAHBA 

1548 STAKBC: JSRVVA: JSRVV29 

1558 JMPVVGI 

1568: VVEE CMPACH"E"sBNE VV70 

1578: VVEIJSRVVEL; JSRF DI: ISP="EIND ADRES"; P=P+L, Ps CNOP; JSRVVS5O 
1580 LDA#E4:STAHEZILDAKGS: STAHSEI JMP VVEZ 

1598: VV7B CMPACH"Z" :BNEVV7 1 

1688 SEC 

1619 LDA#B2:SBCHTISTAHES:LDARESs STAHEAFBCS P+4: DECHEA 

1628 SEC:LDA#B2: SECAWT7s STAHSUILDAKEZISTAHBIJ BCS P+4tDECHEL 
1638 JSRVVO: JSRUV2I: JMPVVE2 

16401 VV71 CMP3CH"S" $BNEVV7E 

1658 JSRVV29;LDR#BD STAHBO: STAHEN s LDAREC : STAHEA; STAKB1 1 JSRVVO 
iEE® JSRVV29: JMPVVEZ 

1678: VV7S 

168D SEC:LDA#B2; SBCHEILDAKBTF SHCHSAGIECS P+5: JMPVVES: BNEVV79 
1698 LDA#B2;CMPHEII BER P-9 

1700:VV79 JSRVVELs ISRHF7D1 5 A 

17108 $P="EINDADRES: #" ;P=P+L. Ps CLDA#SS 

1720 JSRWFSO25LDAHE2: JSRHFBU2 

1758 JSRHF7D1s I8P=" CI/NDE"P=PtL. Ps CNDP 

174BIVV74 JSRUV14;CMPAN4AAI BNEP+3 

1750 RTS:CMPOH4E: BNEVV76 3 JMPVVES 

1768:VV7B CMPAR7FIBNE VVSB; JSRVV75 

177 VTS LOXAOILDYAL HL DAKSTS: STAHBE : LDAHBAs STAHE7 

178 VTE LDACHSE) , Y5STACHEE, XJ FINCHOES ENE VV77 5 INCHB7 
1738:VV77 LDAKSG:CMPHB25BNE VV7E:LDARB75CMPHSIGBNE VV7G 
1800 JSRVVOIJSRVV2S: JSRVVI4ICMPAHAAS BEB VV7S3 JMPVVEZ 

1818: VVBACMPBCH" 1" ; BNEVVB4 

1828 JSRVV75:LDA#E2I STAHBE : LDAHESISTRHB7 

1830: VV82 LDYA1:LDX9B 

1840: VVB1 LDANBESBNEP +4 ; DEC#B7 ; DECHEGSLDACHEE, KX) :STACHBE) , V 
1858 LDAKES : CMP#S9 : BNEVV51 ; LDA#B7 ; CMP#BA; BNEVVS1 

18568 TXA:STACHBE, X) ; JSRVVBs JSRVV29: JSRVV 14 3 CMPSRGA; BEQVVE2 
187BJMPVVE2 

1880: VV84 CMPO#SF sBERP+St JMPVVEG:LDXAOFLDA S, Xs; STAKBDAG, X 
1899 LDA S+256, X:STAKB10D, Xs INXIBNE VV24+9 

1908 JSRVV14s CMPAH203 BNEP-S 3 LDAA1 24 JMPVVBS 
13101PL. A8: T=PiN. :P, $E 

1928 P. “BEGIN: "&A' 

1338 P. *"TABEL:"&T" 

1348 P. "DATA:"&S' 

1958 P‚, "EINDE:"&5+512' " 

1368 P. "START: “&VV20" 

1970 P.” “DRUK OP RETURN OM VERDER TE GAAN"" sLINKSFFES 

1988 718=#4825 RUN 











54 } ACORN NIEUWS JELGEN STATEMEN HEN 


In de vorise ACORN NIEUWS heeft FRANS VAN HOESEL beschreven hoe je 
eenvoudie statements kunt assembleren ter herkenning van P-CHARME. 
Deze methode kan ook gebruikt worden om eisen boxen samen te 
stelten. Wanneer we echter naar #RO8D assembleren zuilen we een 
iets sewijzisde methode moeten toepassen: aansezien P-CHARME dan 
niet gebruikt Kan worden. Zodoende moet de reset met PROGRAM 
verwijderd worden. 

De eisen box zal met een interpreteerroutine moeten hesinnen 
waarvan een listins nu volet: 


NDER 


18 REM INTERPRETEER ROUTINE 
28 DIMLLS:F, I=OTOS;LLI=-SiN 





za GOS. à 

4 a 

58 PT=t4DITI1=HRFI Tell 
6B END 

7a 

5Ba: ! P=kD03O; P=P+Z 

Sar 


1@3:LLEILDX SFF 

11@:LL2ILDY #SESDEY 

12BsLLE INXS INY 

13BsLL4sSLDA LLS, XEBMI LLGGCMPCHBS), YVIBEQ LLS 
tAB:LLStINK:LDA LLS, X4BPL LLS3ENXSLDACHZS) , Y 
158CMP A#2E:BNE LLZsINYsDEXIBCS Ltá 

iEB:LLE: 

170CMP @HBBIBEG LL7:STA #5Z:ILDA LLO+1, X: STAHSZISTY#BEELDXHOA 
182JMP(#B852) 

190:LL7 5 JMPRCSSE 

200:LLE; Is? P=k80 

2D RETURN 


We vullen de box nu ats volet: 


1. T= (begin box) biáv. #00 

2. A= (beain statements) bijv. #A100. 

3. LORD “(naam file)" (zonder sterretje) 

4. RUN 

5. LORD “ (naam: statement file)“ 

5. VERWIJDER reset met PROGRAM. 

7. RUN 

8. indien nos een statement dan verder als bij punt &, 

geen statement meer dan is het Klaar. 

Indien men de eigen bok beneden #8929 wit plaatsen moet op resel 
IED warden toesevosad “AND DR7F", zodat met hose byte van het 
startadres van de routine positief wordt semaakt. Dit is 
noodzaketijk Omdat bij het assembleren Het hoge byte: met de 
intruktie "2T=Lt0/25E0#50" altijd negatief iS: om door de 


instruktie “BMI LL6" in de interpreteer routine herkend te warden 
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DOS en COS statements die met het bekende sterretje ves 
volgen een eisen interpreteer routine: de command line interpreter 
(CLI). Het sterretje wordt in de basicinterpreter herkend: wat tot 
het sevols heeft dat de DOS ern COS commando's als een subroutine 
worden afsewerkt. Indien men een eisen box met DOS of COS 
commando's met het sterretje wit laten besinnen kan men de venoemde 
methode _ OOK volsen. Hiervoor is echter een aangepaste 
interpreteerroutine noodzakelijk: welke nu volat? 





18 REM CLI ROUTINE 
28 DIMLL7:F, I=BTO7sLLISKFFF iN. 





73a:C 

BO:LLOILDX SFF :CLD 
SB:LLiILDY ARDDIJSRHFBTEIDEY 
sINX 





EL43INXELDA LL7: X4BPL LLG3 INXSLDAR1DD, Y 
138CMPA#ZE:BNE LLisINY:DEX;BCS LLS 

taBsLLSS 

15QCMPA#SE5 BEQ LLG:STANIBILDA LL7+1, X3 STARSAICLCILDKARDA 
16BJMP(#8BIAD 

17B:LLEF JMPHESES 

188:LL7; JF? P=tS0 

138 RETURN 


Het vullen van de box is indentiek aan de voorgaande methode. 
Indien deze box niet op #ADDE Komt te staan, zodat P-CHARME 
Sebruikt Kan worden hoeft de rese! met PROGRAM niet verwijderd te 
worden en kan de methode van FRANS volledis sevolsd worden. Ook 
hiervoor seldt dat op reset 148 "AND à#7F" moet worden toesevoesd: 
indien de box beneden #8000 komt testaan. 

Voor het vinden van deze statements kan verschiltende methode's 
sevotad worden: t.w. 

a. de start van deze routine in de CLI vector te zetten. 

b. de CLI vector op een schakel routine te zetten. 

2. door een truucie met het bootstrae printje. 


a. de CLI vector. 

De basie-interpreter sprinot met een indirekte sump naar de DOS of 
COS routine. Het adres van deze sprong staat op #®206/#207 wat men 
een vector noemt. De reset routine zet dit adres op #FBEF,dat is de 
COS-routine, en “DOS zet dit adres op KESES dit is de DOS-routine. 
Door nu dit spronsadres te wijzigen kan de interpreter naar de 
eigen gemaakte routine saan 

Deze vector wijzisins kan men in de box zelf opnemen met het 
volgende prosramma welke dan bij het opstarten setinkt moet worden 
ot in een eisen reset routine worden seinitialiseerd. 
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18 PROGRAM INIT VECTORADRES. 
15 REM VOORBEELD OP #1098 
28 P‚,s2t A;BOSUB a 

38 P.‚$6: +GOSUB a 

48 A=P 

58 END 

&0asL 

78 LDASHEG:STA #26 

52 LDAAHIGISTA #207 

38 RTS; 

108 RETURN 





Reset 78 en EV seven dus het stârt adres aan de CLI vector. 


b. De CLI vector oo zen schakel routine zetter houdt in: dat de box 
ap een van de velden van de Schakelkaart staat en dat de juiste box 
inseschakeld Wordt om dan daar naar toe te sprinsen. 


€. Het bootstrap truucje kan gedaan Worden omdat de adressen #FFFE 
t/m BFFFE selezen worden als #7EFB t/m #IFFE., Zie hiervoor Dok 
ACORN NIEUWS februari 1983 biz 62-45. Op GFFF7 staat JMP C#205), 
welke Wordt aanseroepen in de basic interpreter op #C41E. Bij het 
bootstrap schäkelinsetie staan de adressen #7FFB en WIFF3 in 
RAM-seheusen en kunnen dus gewijzisd worden. Door nu hierin bijv 

7FFB te plaatsen leest de computer dit als JMP (#7FF6) en op 
HIFFE/RZFF7 Kont het lase en hose byte van de eisen interpreteer 
routine te staan. 

In een reset routine kan men deze geheusen plaatsen vutlen. Bij 
gebruik van dit truucie kan men in de CLI routines op resel 178 JMP 
HESES veranderen in JMP (#206). 
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In het kader van het onderhouds-kontrakt dat ik met mijzelf 
héb sesloten volsen hier nos enkele verbeterinsen tov. de versie 
171 (zie ook vorise ACORN NIEUWS). 


ABEB: 87 
AC93: BD 
ACSA: BA 
ACID: GE 
ACAi: 839 
ADCE: 7 


ASBA: SB 20 ED AF AS 57 DB A5 
20 ZE C6 BĲ MW 20 EC AF 
Aa S3 85 98 24 99 D 89 
2e FE C4 20 25 AF FO FA 
27 


RARA4R: 2D BE CE B5 tE B5 6 AF 
ES 29 FA AS 28 1F CT EE 
36 FO BD 20 31 C2 AS 57 
De BZ CE B4 BE 24 9 EC 


Door het aanbrensen van deze verbeterinsen was het helaas nodis om 
„zen extra error-nummer te introduceren: 


182 Line not found in RESTORE 


Het versienummer is inmiddels opaehoosd tot 175. Om te kijken of 
men deze versie bezit (veel EPROMS zullen deze verbeterde versie al 
bevatten) of om te kijken of deze verbeteringen correct zijn 
insetypt, kan men het programma uit de vorise ACORN NIEUWS 
Sebruiken, dat dan viteraard moet besinnen met Ze175 ipv. 171 of 
172. 





Dei een foutse er kan nos meer in he he opseiost 
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De schakelkaart iS op dit moment bij zeer veel Ciubleden aanwezig 

Dit was voor ons aanleiding om de zeer vete moseltijkheden van de 

Sschakeikaart te bekijkern Principieel zijn er éen aantal zaken die 

terecht zouden moeten komen op de Sschakelkaart, Deze zijn: 

1) Uitbreidinss statements (dus ERROR 26 opvansen). 

2) Hitbreidinss functies (dus ERROR 29 opvansen). 

Z) Uitbreidinsen welke niet ERROR MW ot 29 tot sevois hebben als 
zij niet aanwezig zijn. 

4) Een vervangende ERROR handter. 

5) Een ander b.v. sneller Cassette Operating Systen (COS), 

6) Veranderde read en write routines om b.v. functietoetsen 
moselijk te maken. 

7) De Interupt vectoren kunnen eveneens niet naar #AXXX wijzen: 
omdat ats men schakelt tussen verschillende #AXXX pasina's aan 
staan deze vectoren natuurtijk verkeerd: zodat deze eveneens 
hier terecht komen. 

B) Gewijziode RESET, NMI en Interruet routines. 
3) De schakelsoft zetf. 
Bij het ontwere van de Schakelkaart is men ervan uitgesaan dat de 
Schakelsoft zich in het sebied HEXXX zou Saan bevinden. Voor de 
bezitter van de ACORN DISC DRIVE brenst dit probtemen met Zich mem: 
omdat de software voor de disc vak op #EXXX zit. In veel resio's 
worden momenteel de schakelkaarten oMSEbouwd van #EXXX naar #IXXX 
zodat dit ook goed aanstuit bij wat er teeft in den lande. Nu we 
het toch over standaardisatie hebben tijkt het verstandis Om 
evensens afspraken te maken over het te sebruiken Schakelbyte welke 
nodis is voor het uitlezen van de schaketbyte omdat het 
schakelkaart adres #EFFF write onty is. Een aantal resio's hebben 
dit nu op #SFFF sesteld omdat iedereen hier toch al sestapelde RAM 
heeft en het verwant is met #BEFF. O bij de ASBK-I box is #9FFF 
gebruikt als schakeibyte. 











akk STATEMENTS SCHAKELEN stat: 

Voor all& duidelijkheid eerst even een Uuities over Schakelkaart 
Operatins Systemen (SUS). Deze systemen maken het moselijk om 
handels of eigensemaakte epromns welke vp #AXKX seadresserd Zijn &n 
wetke zen Command Strins Interereter (CSI) hebben pp  #ADD2, 
inctusief testbytes #40 en HEF op HADBZ en HRODI, samen Te taten 
werken zodat hierin opsenomen statements onmiddeitijk herkend en 
vitsevoerd worden. Er zijn echter verschitlende manmeren om dit te 
bersiken. Zo kan men: 

1) Succesievelijk alte ROM voeten aflopen: de een na de ander tat 
dat het sezochte statement is gevonden @n Kan worden vitsevoerd. 
Alte CSI worden achter #lkaar septaatst: waardoor onze ATOM ers 
traas wordt vooral bij Statements achter in de rid. Bovendien 
Wordt bij statements welke meer dan sen keer in de CSÌ voorkomen 
steeds de eerste in de rij sepakt. 

Een eisen CSI maken waarin je atte voorkomende statements taat 
Vaorkotaen en Uit statements Welke meerdere maten vo komen Kies 
ie de beste. De schakeisoft is snet ide CSI is ze kort mogelijk) 
naar Wel omvansrijk vanwege de dubbele tabel ruimte en bovendien 
Worden de in de aparte toctboxen aanwezige CSI niet Ssebrvikt. 
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Zaride van die verloren ruimte. Ook is het zo dat bij deze 
methode alte eproms op een vaste plaats moeten Staan. Men zou 
zerst een vmvansrijke en lanszame test Kunnen laten uitvoeren om 
uit te zoeken waar edere box staat maar dan vervalt ook het 
voordeel van de snellere CSI. Bij het ASBK-S systeem komen beide 
varmen voor, en het heeft dan ook zeer vele voordeten. 


1) Men kan bepaatde statements met voorrang laten vitvoeren zodat 

deze snel zijn. 

Statements die b.v. in direct mode en dus lanszaam uitgevoerd 

kunnen worden: worden achter in de Tij seplaatst zodat andere 

statements in #AXXX sneller vitsevoerd Kunnen worden. 

5) Het is moselijk om het systeem "op slot“ te zetten, zodat men 
alleen toesans heett tot een bepaalde bok om perse deze box te 
kunnen sebruiken. 

4) Ook kan men bepalen welke van dubbele statements sebruikt zal 
worden: zodat steeds de beste statement kan worden sebruikt. 

5) Oek als het systeem “op slot” staat zijn de statements RESET en 
BOX te bereiken zodat wu hiermee het systeem weer aan Kunt 
zetten. 

5) U kunt zelf bepalen waar de extra uitbreidingen zich zuilen 
bevinden b.v. op #1XXX of #7XXX, 

7) De uvitbreidings statements kunnen zowel BASIC als machinetaal 
zijn. 

B) Nieuw aangeschafte eproms Kunnen mits zij een CSÌ hebben op 
#ADBZ en test bytes #48 en #BF op HAROLD en #ADOL zonder meer 
worden bisdeprikt. 





mak ANDERE VERBETERINGEN teen: 


Met de listins schakeisott zijn de punten 1,454 en 9 al 
behandeld. Hoe u precies uitbreidings statements: functies en 
andere uitbreidinsen kan maken zal in een volsend artikel worden 


vertetd. De RESET routine vermeld onder & is in het prosramma 
functies veranderd: maar U moet hiervoor dan wel de e!derg in deze 
ACORN NIEUWS sepubliceerde Nnardware wijziging uitvoeren aan de 
boot-up. De vervansende ERROR handler gseeft behatve het error 
nummer de seheie regel weer waarin de error optrad als de error 
tenminste in BASIC voorkwam, met een hishlisht op de plaats waar de 
intereretor was sebleven toen de fout optrad. Het is dus zeer 
eenvoudis seworden om fouten vp te sporen en te verbeteren. 

Een CTRL opdracht seeft nu niet meer een ERROR 94 als men hierna 
weer op RETURN drukt. 

Er zijn echter ook een aanta! dingen waarmee men moet oppassen met 
het ASBK-S systeem. 


1) De free space pointer kan men het beste sebruiken als men een 


gebied wij vinden om iets in te assembteren: omdat de onder 
functie wuitbreidinsen vermelde vitbreidinesfuncties sebruik 
maken van ruimte boven free, zodat een hier eventueel 





geassembleerd Prosyranma weer Wordt semrist. Dit is ook sevaartijk 
in direct mode als men seen OLD heeft seseven en wei string 
handiins sebruikt. Om in de direct mode strins handlina te doen 
kan men dus of OLD intypen of naar een andere tentspacr 
verhuizen met b.v. SET #28. 


voorbeeld assembler vrosranma: 
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ASTEEL 


18FOR I=@ TO 1 

28PaFREE 

Ze 

GBHIER UW ASSEMBLER SOURCE 
581 

SBNEXT 1 

7OFREE=P 

BEEND 


Voordat wu toegans heeft tot de functies en statements van het 
ASBK-S systeen moet u de opdracht RESET seven of de elders in 
deze ACORN NIEUWS sepubiiceerde boot-up hardware WwWijzisinsen 
maken om deze bootstrap te verkrijgen. Ats u seen eisen 
bootstrap heeft moet u na elke druk op de BREAK toets een RESET 
opdracht seven. 

3) De jasbox moet in ROM voet &, dit in verband met toekomstiae 
vitbreidinssstatements welke hiervan Sebryik zutien maken. 


HJ 


Bis RESET of na op BREAK sedrukt te hebben, met een aanwezige 
boot-up: verschijnt de text ACORN-ATOM al of niet met een punt 
erachter of U al of niet een DISC DRIVE hebt. Alle beschreven 
functie en statements zijn nu ter beschikkins,. 





xm EN DAN DIT... tert 
Voor functies en veranderingen welke niet ERROR 94 veroorzaken Kar 
men niet volstaan met atieen onze 3 wes wisset in de ficating 
Point: omdat deze alteen bereikt Wordt bij ERROR 94. Zo moet de 
interpreter gebruik maken van een vervansende error handier waarvan 
de pointers op HEBZ en #20 staan. Zoais opk al in ACORN NIEUWS nrs 
van 13982 heeft sestaan kan men dit niet in direct mode veranderen 
zonder de OSCHRD routine te veranderen. Dit is dus de reden dat de 
OSCHRD vector is veranderd in het schakelsoft prosramma: en mas men 
zeif deze vector niet meer veranderen: omdat dan de interpreter 
niet meer werkt. Stilzwijsend is aansenomen in het voorgaande dat 
de 5 weg wisset in de floating point ny naar #18098 wijst. 
sak: FUNCTIE UITBREIDINGEN set 


ERR 
ERL 


b 

LEFT& 

RITHGT$ 

MID $ 

INSTR 

É 

f 

TAB 

FREE 

TS Deze functie seett U semakketijk toesans tot de TEXT SPACE 
pointer welke Zich bevindt op seheusenplaats #iZ of 18 

b.v. If TS =#Z95PRINT" LOWER TEXTSPACE" 

RESET Dit statement start het systeem. Het moet sébruikt worden 
na etke opstart of na een BREAK, tenzij er een bootstrap is 
Insebouwd in welk sevai het automatisch Kan. 

BOX Dit statement laat U schakelen tussen de verschiilende 
boxen. 


EARTH EEE KE 


* FREE 
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* REPORT 
* RERUN 


* Deze statements en functies zijn selijk aan de superbasic. 


me RESET ROUTINE: 

Wanneer We zelf willen bepalen waar of hoe d RESET of BREAK 
routine zou moeten werken zijn er een aantat manieren om dit op te 
lessen. Een van die manieren wordt hieronder beschreven en wordt 
Dok toesepast in het komende ASEK-S systeem. (Schakeisoft), In deze 
toepassing is de break routine vit de F-rom sewijzisd. Daar deze 
rom niet is te wissen of te wijzisen iS Op de oude A-voet(IC 24) de 
nieuwe F-rom seplaatst. 





Hiervoor moeten natuurlijk een aantal hardware wijziginsen 
piaatsvinden. Deze zijn echter zo eenvoudig en simpel dat nasenoes 
iedereen dit zal kunner. De Hardware wijzisinsen Worden in het 


schema duidentijk semaakt. 


krt Ny de software: 
Als, we iets in de bestaande ruimte willen aanpassen geeft dit 
meestal problemen met de beschikbare ruimte in die routine. 
In dit seval was dat dus cok het gevat in de BREAK routine zodat we 
deze dus moesten inkorten. 
Dat dit niet seheel zonder gevoisen is zal tesisch zijn 
Wat is er Ssebeurt: 


1) vanaf HZIC worden #1C bytes sevuld met andere waarden dan voor 
de veset.Deze Seheusen plaatsen zijn bij de Atom vrij of worden 
Sebruikt voor de While Endwhite Stack: zodat dit seen gevolsen 
heeft. 

2) De dubbele test of er #2999 seneveen zit is nu tot een enkeie 
test terussebracht. Dat dit seen gevolsen heeft hebben we met de 
drie wes wissel al aeconstateerd. 
5) De 8255 wordt niet direct soed seinitialiseerd maar krijst 
alvorens de soede waarde te krijsen een aantal verkeerde.Het 
toetsenbord en de VDU blijven echter goed werken omdat de 
eindwaarde Soed is. 
4) Men Kan de seheusen plaatsen #B8D4-#BOIS niet meer sebruiken 
voor 1/0 omdat deze nu in de reset routine een waarde krijgen. 

Om yv serust te stelten? 
U merkt van het bovenstaande niets in de praktijk. 
Het ergsramma zat setijk na binnen komst in de reset routine Kijken 
ot er Shift-break Of break Was ingedrukt, 

Snitft Break is de bude vertrouwde ATOM BREAK mäar met schitt break 
gaaat hij nv indirect springen naar adres (HIFFC). 

In deze locatie kan dan het adres staan waar onze eisen break/reset 
routine zit. 

Het teuke van het direct kijken bij binnen Komst in de break 
routine of de shift niet is insedrukt is dat op dat moment alle 
resisters nos origineel zijn zodat we die eventueel ook uit kunnen 
De mogenlijkheden zijn dus zeer uitsebreid en door de hier 
ruikte indirecte jump zeer universeel. 

zal er op selet moeten worden dat in onze eisen reset/break 
tinedie waar dan ook staat,de poorten #BOG2 en #BRBS aoed sezet 
moeten worden zoals dit in de origineie Break routine sebeurt. 
Dit ter voorkaimine dat de hete zaak Saat hansen. 





te 
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Hieronder volsen twee prosramma's het ene :S de aansepaste break 
routine de andere een voorbeeld van hoe een eisen break of reset 
routine er vit zou kunnen zien. 
Hoe saan we te werkt 
Save uw oude F-pasina. 
Load het daarna op b.v #4000. 
Tik het onderstaande prosramma in en RUN het. 
Save van #4838 to #4FFF ats zijnde uw nieuwe F-pasina. 
Zet dit seneel in Eprom. 
Maak de in het schema aandeseven hardware wijzising en UW nieuwe 
F-pasina is Klaar voor Sebruik. 
BREM RESET 
1ODIM LLCS) 
ZOEF. I=STOSILL CID =- 1 iN. 
36F. 1=0T01 
4&AP=E4AF EFF A=P 
58 
EULDARSFFF s ANDAHSF ; STARSEFF 
7OSTAHBFFF :LDA#BBD1 5 BPLLL t 
BOJMPCHIFFC 
30: LLi 
188 DXDRST 
118:LL2 
120LDADHFF ;STARDZEB: X 
1 30LDAHFFSE, X5 STAHBOUZ, X 
14BLDAEFFIA: X: STAHO2DA, X 
1SDDEX:BPLLLE: TXSs INX 
1EBSTKHEAISTXHELG STKHET 
178LDAI#BA: STAHFE 
180JSRHFTD1 3 A 
198? P=65ICP+IJ RCH PAD RFI PPS 
2088P=" ACDRN-ATOM" ; PaP+L. P 
E10? P=HAG IPAL RAI IEP ROD IPP TE 
150 
BLDABERZICLIs STAH2301 s CMP#2301 + BNELLS 
SOIMPECZB2 
záD:lt 5 
ZSOIMPEC2B4 
2603 
ZE5?P=#07 F2 (P+) =KBAIP=P+Z 
Z70N. +a=@ 
Z88P. "CODE VAN "&A" TOT "RPL 
ZIAD=EFEND 








Als vaolst zou De Ve Uw eigen paotup er vitkurnmen zien ats 
onderstaand prosramma. Er Wordt sekeken of er een DOS aanw a is 
.zo ja werdt deze inselinkt ven de text space wordt op #2300 et. 
Tevens wordt er in plaats van de oude text ACORN-ATOM een sisen 
text sedisplaved. 








LOREM stotteren anr eotorsakbdnkek. 
ZEREM hei 
ZOREM #* asbk bootup * 
GBREM vam « 
SOREM storaaratedetorokttnt: 
EBDIM BBE 

7OF. I=ATOEFBECIJ 





13N. 
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SF, I=1T02 
eP=#1 700 
182 
110LDRIHDA; STAHFE 
128LDAAHBAs STAHBOOS ; LDADHT + STAHBOUZ 
150BIT#BOO2IBVC BBĲ 
14BLDA#EZDD ; CMPAHAS ; BNEBB7 + JSR#EUOG 
150:BB7 
1EOJSRHFIDI; A5 7P=125SPHI=" bek ACORN ATOM"; PaPel. P 
17GELDAKEOAD : CMPSHÉNS s BNEBBA 
1801 DAD#ZE ; STAHSADE 
198: BB4 
ZOOIJSRHFFED: JSRHFFED 
218LDAD1 Ss JSRAFFFG 
220JMP#C2B2 
238: BBO 
Z4BLDASHEA ; STAKDOUS ;LDAAHO7 : STAHBEO2 
Z58LDASBB1 /256E&HFF ; STAKOG ; LDAABBLARFF ; STARUS ; JMPRC2F 2 
268: BB1 5 A 
Z70$P="@zisP. $687" “;PeP+L, P 
“BREAK “""3Pp=P+L. P 
sQ=0i1F?i0?2P, ";P=P+L.P ZOOSP="""AT LINE""";PaP+L, P 
LLEKFFEE" 
tl. P3 PEBE? CP+1) =#0D 
+2) =D P=P+I 
P.' sE, "s;PeP+L. Ps IPSHADE? CP+ID SHFF 3 PeP+2 
Z50P. SEEN. 1 
368? HFFC=R00 2 HIFFDeR17 END 










Deze Bootue routine heeft de volsende eigenschappen: 

1) boorten Worden soedsezet 

2) test of DOS er is:zo ja wordt deze inselinkt en zat er een punt 
achter de bootup text worden gezet. 

2) REPEAT/BREAK za! een BREAK AT LINE xxx seven. 

Hieronder dàn de te Wijzisen hardware: 





ton SCHEMA ototet 


ic 23 sein voor schakelkaart 
onderse ic. 





menen ain Z@ics) vit voer halen 





had = in oude A-voet IC24 





- - monteren 
Pin 7 uit 7 7 
vaat halen = = 
U ziet dat git nosat meevalt het is maar een draadie wat selles 


moet worden tussen Rin 7 van ic23 en Pin 20 van ic 24 om uw nieuwe 
Fram te laten werken. 
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Wis zelf sebruikern de #1839 pasina voor de bootue en de 
schakeisoft. U kunt dit natuurlijk Ook op #EBBPwanneer seen DOS) 
at #7000 coen. 


wak DE ASBK-L htt 


Eindelijk na een lanse tijd van debussen en testen is hij dan klaar 
de ASBK-Il box. Deze nieuwe toolkit gaat de Softtoat Il en de 
Prasram Power vervanser. Tevens zijn er een aantal nieuwe 
zommando' s torgevorsd die her en der in den lande in 


schakelsoft-systemen worden sebruikt. We hebben met deze box 26 
commando's aan onze ATOM toesevoesd. 


STARTADRESSEN ASBK — 1 BOX 
COMMANDO START EIND JMP ADRES 


AUTD.... HALLES HAZIE #ALZD 
BEEP... #A237 #AZAB #A2I7 
BELL.... #AZAS HAZDI #AZAI 
BOX. .... HAZDA #AEGD #AZDA 
CHA...» #AEIG #AFIG #REIC 
CHLDC... #ASTE HAIDE #AZOE 
CLS5..... #AZD3 HAALDE #AID9 
COMPACT. #A403 #AS4I ALDI 
CURSOR. . #AS4A KASIS #AS4R 
CONT.... #ACA1 H#ACE2 #ACAL 
COS..... #ADFF #AEIB HADEF 
DELETE. . #A593 #A675 #A53C 
DUMP. ,.. #AFB4 HAFDI #AFA1 
FILL.... #A67E #AEDI HAEIC 
GSCREEN. H#AFED H#AFES #AFED 
HEPR.... #AEDA HA7SE #AEDA 
HOME... HA757 HA7EZ #A757 
HIGH...» #A76E #A79ID KA7ET 
HTAB. …« #ACES #ACFG RACES 
INKEY... #ABZZ H#ABEZ HASZE 
INVERT.. #R884 HABD1 #ABE4 
INFALL.. #A2G8 #A82Z #ASDE 
LBR..... #A8ED2 #AI20 
ON, «…… HAIZ1 HRADL 
PAUSE... HAADZ HAALC 
REPEAT... #RAAID #AALD 
SET..... #ABI7 HABEZ 
SHOW... HABEZ HACDE 
SLIST... #ACO3 HALE 
SCREEN. . #AFID H#AFZC 
SIDP.... #ACE4 #ACAG 
SEARCH... #AAGE #ABiE HAARLE 
INFO,... H#A7IE #A6E37 ATIE 
HACF7 #ADIL HACF7 
#AD1Z #ADDE HADI2 
ZERD.... #ADDC H#ADFE #ADDC 




















NAWDORD: 


Vezi commando's uit de ASBK-I box Komen vit handeistonlkits en 
zin SmMSssbouwd. Dit o.a. met Het op de zero-paar adressen. 





MINI SCHAKELKAART | Frans: RUURD EN RUDY Lacoen NIEUWS |eac, L 


Met deze minischakelkaart kan geschakeld warden tussen EPRDM' s 
(ZSEE) op HAXXK, en áKk CMOS RAM (met battery back-up): die overal 
in de computer seadresseerd kan warden Mmby. dipswitches. 

Het seheel past in de kast: en komt mov. IC stekers (' headers!) in 





de voetjes van IC ZE: en IC 24, De twee IC's komen mu op het 
printje. 
DE BOUW: 
De print bestukken vis. de printoesteltins. Let bij het solderen 
vooral op dat er seen korreltjes tin tussen de spoorties komen: en 
kortsluiting vercarzaken! !. Wanneer de componentenzijde klaar is 


moeten de IC stekers eronder sesoldeerd worden, Wanneer u headers, 
of flatcable connectors S&bruikt: doet uv er sOsd aan eerst door 
oversebleven saaties draadstukjes te steken, en deze vast te 
solderen: als U nu de stukjes oe +/-Smm onder de print afknipt: kan 
daar de connector os vast sesoideerd worden, Voor de battery-back 
up kan zowel een eisen batterijtjie,als de NICAD-cel die al op de 
IEK kaart,of Bia benny zit sebruikt worden (in de laatste 2 
sevaiten RZ7 NIET MONTEREN (ook Riet, bij het sebruik van sewone 
niet oplaadbare batterijen!) „=n de — v/d batterij niet aansluiten 
Canders aardiussend). 

Nu moet at leen nos de Kleine B-pin connector aangesloten worden: 

1: + van de batteris 

= van de batterij (atteen bij Sebruik van aparte batterij) 

NRDS lijn, bijv. pin 5 v/d BESS PIA 

NWDS Hin: bijv. pin Z6 v/d E255 PIA 

AiS- rest: saat naar pen 4 van IC 6 

EPROM select, PB@ van de VIA (pin 10): of PB4 van Hie Benny. 
blijft even lees 

RAM in-uit PEI van VIA C11), of PBS van Bis Benny 








OM Ci 


Als uv de ram inschakelt: op een bepaald adres waar in de computer 
Sehsusen zit, moet dit sehevaen se DISABLED worden. Hiervoor moet 
A15 op de COMPONENTENZIJDE van de print doorgekrast worden. (zie 
fisuur A) 

Voor de mensen, die seen bootstrap in hun computer hebben: is het 
nu ktaar! 

DE BOOTSTRAP: 


Een opmerking vooraf: Het Kan zeker seen kWaad het artikel over de 
boorstrap (A.N. feb 'BT P3,45-45) nos sens door te tezen! 

Op het printje zitten ook een aantal poortjes, die een sedeelte v/d 
bootstrap voor hun rekening nemen. Om hiervan gebruik te maken moet 
het volgende veranderd worden: 

— Het draadie wat aan het DWARSGEPLAATSTE eitandse op het bootstrap 
printje zit en naar Pin 6 van IC 25 saat wordt verwijderd. 

— Nu wordt deze pin (6/ICZS) met een Klein draadie verbonden meteen 
25 van de processor 

—- De vitsane van de 'LS 135 (d.i. pen 9) op de bootsrap print wordt 
niu met pen 7 van de connector van de minischakelkaart verbonden. 

—= Ais laatste wordt nu de draad,die van pen 4 van IC 6 Komt en naar 
het z=ilandvse 'A1lS' OP het bootstap erintje saat: hieraf Ssehaaid, 
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en op pen 5 van de connector op de minischaketkaart Jesoideerd. 








— Nu moet atteen nos link tj (op de Print gemarkeerd met een 
sterretje) op min:schakelkaart dOOrsekTäst Worden. 
GEBRUIK: 


Bij het inschakelen staat de RAM vit, en is EPRUM 1 geselecteerd 
Met PE4 (PB3) kan omseschakeld worden tussen EPROMI:, en 2 CH: 
EPROMIs LsEPROMS) 

Met PBS (CPB) kan de RAM aan gezet worden CH uitt Lt aan). De 
plaats waar de RAM staat waardt insestela mov. de di pswitches 
Wanneer een dipswitch UIT staat: dan wordt dit merkend ats een EEN, 
RAM oo HIXXX wordt zu insesteidsAl2- OFF, AiS- ON: Ai&- ON, AlS- 
ON. 

HAXXX wordt dus zo ingesteld:Al2- ON, AlZ- OFF: Aiá- ON, AiS- OFF, 
Ais nu de RAM aansezet wordt, dan Wardt de in bedrijf zijnde EPROM 
automatisch uitseschakeld. 

Het bovenste schakelaartje schakelt de writs-protect van de vam. 


NB. de beide insansssisnalen Ceonnector pen 6 en pen B kunnen 
vanzelfsprekend ook met een schakelaartse at dan niet met massa 
worden verbonden om te schakelen tussen EPROMi, 2, en RAM aan, uit. 
ONDERDELEN: 
24 * 27K 2e 19E 

2 18K 1 * LED rood Sam 

6 * SK6G 2 * BE 557 

1% 2K7 1 * DUG Caali3 o.i.d.) 

2% IK 1 * DUS (IN4I4B o.i.d.) 

1 * 688 ohm 1 * BCS47 

1 470 ohm 1 * 74L588 

1 * 228 ohm 1 * 74LS 256 

1 * 68 ohm 1 * 74LS15G 

R57: Ik (laadstroom afh.) 1 * E-voudiae DIP-switch 

1 * 1Epin IC steker Z* 6116 

1 * 2ápin IC steker 
Er werken inmiddeis & prototypes van het Kaartje tot volte 
tevredenheid. Er zijn op het osenblik zen aantal printjes in sen 
Kieine serie geprduceerd. (prijs +/- FB. 52) Wanneer u hiervoor 
betansstel ling heeft, dan 9raas Via Uw resio wen Kaartje aan de 


redaktie: met het aantal benodiade printjes. 
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VOORBEELD VAN DE BESTURING v/d MINISCHAKELKAART : 





18 REM SELECT A (minischakelkaart op VIA) 
z@ P.s12 

58 P‚," RAM IN :1""* RAM GI 
65 P." EPROM1 £5""" EPROME 
Sû 

68 IN.“ CODE" A 

7® IF A=l GOS. a 

E24] GOS. b 

38 ; GOS. ec 

108 IF A=4 GOS. d 

E. 


u 





EE) 








pi 
ZOKREM INITIALIZE 

148 EBEDE=IKBREDINHOT: R. :PBG+PBI: output 
158 

1EOaREM RAM AAN 

178 GOS. x 

188 ?#BEAD=HBEOUERFD: R. :PEl: laas 
198DREM RAM UIT 

280 GOS, x 

219 ?#580D= #BEAROHOS s R. :PB1: hoos 
ZEBCREM EPROM 2 

238 GOS.« 

240 WBEUG=HBEGDEKFE : R. :PED: laas 
ZSOEREM EPROM 4 

254 GOS, x 

270 ?#B8EI=#BSGONHDI ; R. :PBG: moos 


1® REM SELECT B (minischakelkaart op PIA van Big Benny) 
28 REM resels 20-150: zie select A 
138 
I&ÖKREM INITIALIZE 
159 ?#B4BT=B4DIAHFB ‘select DORE 
168 ?#B402= #BA020HZD :PB4+PBS = output 
178 #B4AGE=I#BLBINRDA ‘select ORB 
188 R‚ 
198 
20BaREM RAM AAN 
218 GOS. x 
228 7#BR4DZ=HBAGZEKDF ; R. :PB$: laas 
2SULREM RAM UIT 
248 GDS. x : 
25% 7WB4A0Z=#B4DZEH20s R. :PBS: moos 
ZEBEREM EPROM 2 
278 GOS. x 
258 7#B46B2=NBAO2EHEF ; R. :PBá: laas 
ZIDAREM EPRUM 1 
308 GOS. x 
18 PKRH4AO2T BLOED RAR, :PB4s noos 
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In iedere vitsave zat onder bovenstaande titel listings zonder of 
met weinis commentaar worden sepubliceerd. Waneer listings hiervoor 
worden ingestuurd dar saarne het commentaar in REM-regels. 


meth ZOMBIE zeeer 


1 REM ZOMBIE 
18 H=$500D: 5=#5020; E=#81CO: 2=D 
23 DIM LLi,MM4, SS2:P, $21 
25 SS1=#80IF; SS2=#E0FF 
30 GOS. 20908: GOS. 2908 
42 P.$E6$12:CLEAR A 
44 P. "WILT U INSTRUKTIES?" 
ú& LINK LLS 
4B IF ?#30=745 GOS. 4008 
S@h P.$L25CLEAR Gs P. “MOEILIJKHEIDSGRAAD? "LENK LLS: Q=2559 
S1 P,$12:CLEAR @ 
52 M=?#$9B-48 
54 IF Mi OR MI5P.$75G.h 
SE MzMk5 
EO F‚I=@ TO SisH?I=#20iN. 
78 F.I=@ TO 21557 I=#BF IN. 
88 F.I=t803F TO #BIBF S. 52 
0 I= 1=tOF 
188 N. 
123 F.I=@ TO 31E? I=#OF iN. 
1358 HIG=#25 
143 F‚I=1 TO 30-M 
15OKR=A. R‚ HAAG 
168 IF SRO #40:G. x 
178 S?R=#DF 
189 N. 
198 F.I=ì TO M 
208yR=A. R‚ 446 
218 IF S?RO#405G. y 
228 S?R=#Hi8 


238 N. 3 Z=M 
240 GOS. 3589:P," AANTAL ZOMBIES: "Z" “$385 IE1=0 
258 P‚" WAAR GAAT U NAAR TOE?" 


255 TeZ#2059=4 

265 DO LINK LLi 

278 T=T-13P.$3OT 

275 U.T=D OR CI#9B =#1B AND ?#IB (=k19) 
277 @=0 

288 P. 459" 

282 H?G=#40 

285 IF 7#9G=HFF;G. 550 

238 G. CIBO+10*(?#3D-H10)) 

30e 
Z18 
328 
358 
z4a8 
TSA 
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3E8 
378 
388 
328 


Q=0+15G, m 
Q=Q-55:0. m 
G=B- 5236. m 
G=Q- 3156. mt 





4OOmIF HPQ=#DF IG. v 


418 
420 
438 


IF H?Q=#18:G. z 
H?Q=#255 GOS. t 
GOS. s;G. 240 


w4BVGOS. 55OB 


458 
468 


P‚« IN DE KUIL!!! hi 
G.o 


4782608. 5500 


488 
498 


Pp,” OPGEGETEN. . « » hi 
Go 


5834GOS. 5500 


518 
528 


S5GoP. 859" 


548 
55@ 
550 
578 
588 


Pp.” FLAUW HOOR! ! * hi 
G.o 


ME1=BIP. " "ILINK LLS 

IF ?#99=755G. e 

IF ?#98=74 ; RUN 

GOS. 5500 

Pp,” IKKE NIET BEGRIJPEN ";G.0 


EBIT B=H+Q 


618 
628 
659 
E40 
559 


IF ?(B-1)=#183?(B-1)=t401 ?B=t18G. z 
IF Z(B+1)=#1857CB+1) =#405 ?B=#1856. z 
IF ?(B-32)e#183?(B-52) et40: ?BeH181G. z 
IF ?(B+52)=#181? (B+32) =t405 IB=#1856. z 
R. 





1029sF.J=54 TO 447iV=HrJ 


1820 
18358 
1040 
1858 
1460 
1054 
1068 
1878 
1838 
1998 
1108 
1118 
1128 
1152 
1148 
1158 
1168 


IF VO #8:6.n 

vet 0 

X=OA52-IAE2 

Y=0/352-J/ 52 

B=J;C=@i D=d 

IF XO @iCaX/A. X 

IF YOO:D=eY/A. Y 

IF A.A. Y:B=B+C3G. 1110 
IF A. XA. Y;G. 1128 

IF R. (@sH=B+C1G. 1110 
B=B+D*32 

WzH+B 

IF 2W=#4Bt IW=HL ISG. Nn 

IF ?2W=#255 ?Wet1E1G. z 

IF ?We#193G0S. 150056. n 
IF ?2W=t18}?Weti95GOS. 150076. n 
IF ?Wat@F:GOS. 135856. n 


124@nIF Z=0:G. 5000 


1205 
1248 
1258 
1300 
1518 
1558 
1560 
2000 


NJ 
LINK MM@ 


R. 
GOS. 5580 
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“&3B"NOG EEN KEER?" 


P.“ ZOMBIE EET ZOMBIE "$IeZ-i3R. 


GOS. 535008 


Pp.” ZOMBIE VALT IN KUIL “yZeZ-isR. 


DIM P-1 


260ST : PMA 
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2018\ Y'S WORDEN X-EN 
2829 LDX 2193 

2030: MM1 

2848 LDA SS1,X 

2058 CMP 825 CYP) 
2058 BNE MM2 

2678 LDA 324 CX!) 
2088 STA SSi,X 
2098:MM2 DEX 

2183 BNE MMI 

2118 LDX 2195 

2128: MMT 

2158 LDA SS2.X 

2148 CMP A25 (YP 
2153 BNE MM4 

2168 LDA 324 CX!) 
2178 STA 552, X 
2180:MM4 DEX 

2198 BNE MMS 

2208 RTS 

2210:LL8 

2229 JSR #FFES 

2258 STA #90 

2248 RTS 

2250:1Li 

2250 JSR #FE71 

2270 STY #30 

2288 RTS 

2290 R. 

3098 GOS. 3520 

3818 P. "OK, JIJ HEBT GEWONNEN “:6. 0 
3509 PST Trr tert Re 

422 P.$12:CLEAR @ 

4005 P.''* “tor ZOMBIE-EILAND stok” ® 
4018 P."U BENT ALS SCHIPBREUKELING AA 
4020 P. “GEKOMEN DP EEN EILAND DAT BE- 








48I0 IWOOND WORDT DOOR MENSENETENDE" 
4840 1ZOMBIES. DE ENIGE MANIER OM TE" 
4858 "ONTSNAPPEN IS: DE ZOMBIES IN DE" 
4368 OP HET EILAND VERSPREID LIGGEN-"" 


4978 P‚, "DE VALKUILEN TE LOKKEN, " 

4109 P.'' "(DRUK OP TOETS OM DOOR TE GAAN) “iLINK FEES 
4105 P‚$12:CLEAR B 

4118 P. "U KUNT DAARTOE IN ALLE“ 

4120 P."RICHTINGEN BEWEGEN, ECHTER NIET"' 

U1EG P. "MEER DAN 1 PLAATSJE PER KEER. “* 

41Z1 P.“DE RICHTINGEN ZIJN DIE VAN EEN“" 

4132 P. “NUMERIEK TOETSENBORDJE : ** 

41335 P. “789 'S' IS STILSTAAN"" "456"" “125 B" IS OPHOUDEN" 
G1ES P‚*"“MOEILIJKHEIDSGRAAD NAAR KEUZE" 

4iEE P. "(EEN VAN DE CIJFERS 1 T/M 9)"' 

4178 P."DE ZOMBIES KOMEN RECHT OP U AF, * 

4188 P."EN U HEEFT BEPERKTE BEDENKTIJD! :" 

4185 P."CMINDER ZOMBIES, MINDER TIJD" 

4198 P.*' "DRUK OP TOETS OM DOOR TE GAAN) "LINK sFFES 
4208 R. 

50ABeP. 51725 END 
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ek CALCULATOR wer 


18 REM CALCULATOR 
28 REM TINY VERSCHUREN 


38 P.$12 
«B Pp," sok atom calculator tet?t 
5e Pp.“ + _OPTELLEN"" 
EB P.” — _AFTREKKEN"" 
78 Pp." * _ VERMENIGVULDIGEN"" 
88 P.“ {_ DELEN"" 
ga Pp.” W _WORTELTREKKEN"" 
188 P,* C CLEAR’ 
119 % _PERCENTAGE"" 
120 +% BEDRAG + PERCENTAGE"? 
158 =%ú BEDRAG - PERCENTAGE" 
148 +2 TWEEDE MACHT"* 
158 +5 DERDE MACHT" 
168 PI BEREKENING MET PI“ 
178 voor starten druk return“ 
188 “$5:BRMOD:P. €12 "" 
138 EC + mx khhdd 





208 P." PI +2 +35 wer 





218 P‚* 7 bd 9 Aen 

228 Pe." â 5 6 ’ 

238 P.* t 2 3 hi 

248 P‚" D @ « M 

25@ GOSUB c 

250 DIMCC2) 

2700*X=B 

288aP, $50' 71" 71 

298 FORM=1ITO19;P, $9iN. 5P. " wr 
300 FORM=1TO27:P. $SiN, :P. " idd 

518 FORM=1TO19;P. 69iN, 5P, " id 

328 FORM=1TO19:P, $3iN. sP. " hd 


330 P‚ $30$1069898549 
240 FIF XX=8 T.P."BRROULLLLB  “"'''iG.e 

350 FIFAX) 99999339 T‚P," overtion “'"''sG.e 

360 FP‚xK tr? 

27QeFORM=1T0205P. S9IN. 5P. “GETAL  ** 

388 FORM=1T0203P. $93N, :FIN. XB IFXB=C T.G. b 
Z9DEP. * ;FORM=1TO20:P. SON. FIN. "FUNCTIE "SCHIF $C="C*T. Gb 
4DB IF$C="+"ORSC="—"ORSC=" 42" ORSC-" AE ORSC= "WI ORSC=" PIT. G. a 
GIO IFSC="#"ORSC="/"ORSC=" K"ORSC=" 4“ ORSC="-KPORSC=" 12" T. Ge 9 
420 IFSC="#Z"ORSC="W"ORSCT"+“ORSC="—"ORSCT" PINT. G. 5 

43B P.$11$11:G, t 

b4BsP, * +FORM=1T020;P. $9iN. IN. “GETAL  *' 

450 FORM=1T0205P. SON. : FIN. XXHIFKX=C T. Gb 

GE@AIF SCe" tT. AX=KBELX 

478 “T, KK=kB/ EX 

4E9 eKT. KKK B/ 1004 

use KT. AK=KB4 CAB/ 1004) 

sag KT. AK=XB- CXB/100HAX) 

S1® IF $C="#2"T. XX=KB#XB 

520 
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538 IF SC="W"T, XX=SORKB 











548 IF $C="+"T, LX=AX+KB 
558 IF $C: T, XK={X-B 
SEB IF $C="PI“T. XX=XB4PI 
570 G.d 


SSBCMOVELG, 15: DRAWI4G, 155 MOVELO, 405 DRAWL GD, AO 

538 MOVE1D, 14: DRAW140, 1465 MOVELGS, 114:DRAWIGS, 15 
E38 MOVELG, 65: DRAWI 4D: E55MOVE1G: 9D: DRAWI GO, 90 

618 MOVE1G, 1155 DRAW14D, 11 5:MOVE1D, 158: DRAW14D: 128 
E28 MOVEIG, 1145 DRAWI11, 114: DRAWIT1, 15 

638 MOVEIG: 16B5 DRAW14D, 16 OVE1G, 185: DRAW140, 185 
S4B MOVE1G, 1615 DRAWI4D, 1615 MDVE1D, 185: DRAWI4G, 186 
E58 MOVE1G, 185:DRAW1G: 155 MOVE14O, LESsSDRAH14G, 15 
EED MOVE141, 1855 DRAWI4 1, 143MDVE142, 1863 DRAWI GZ, 14 
570 MOVES, 186: DRAUI, 145 MOVES, 1863 DRAWS, 14 

BBB MOVE4D, 168: DRAW4B, 155MOVE7S: 150: DRAW7S, 15 

638 MOVEI1G: 160: DRANL1EO: 15:R. 


weren WODODRDZDEK meet: 


10 REM WOORDZOEK 
20 REM TINY VERSCHUREN 






30 e=1 
40 DIM R(10),Z(1),Y{3),U(3),W(10) 
50 P‚$12“ #4 WOORDZGEK *44tE rt 


60 P,"UW TEGENSPELER MAG NIET KYKEN."'! 
70 P."TOETS EEN WOORD IN (MAX.10 KA 






80 

90 

100 P,"PUNTEN GEVEN AANTAL TEKENS AAN.“''! 
110 IN.” *** DRUK RETURN ***"'$0 

120 IF $0 T.G.130 





130 P,$12 
140 PLAY Al,B4,CB,D2,E1,FB,G4 

150 IN."WCOORD *'$R 

160 IF LEN(R}>10 T_P."MAX, 10 KARACTERS";F.D=0TO200;WAIT;N. ;G.130 
170 M=LEN(R});X=0 

180 A=?#8021;B=7#8022;C=?#8023;D=?#8024;E=?#8025 
190 F=?#8026;G=?#B027;H=?#8028;1I2?#8029;J=-?#802A 
200 P.$12 

210 PLAY A2,B4,C8,D8,E4,F2,G1 

220 P.$30 

230 !#8092=#20202020; !#80B2=#20202020 

240 !#BOB6=#20202020;!#BOBA=#20202020 

250 1$80CO=#20202020;!#BOC4=#20202020; !#BOC8=#20202020 
260 1#80F2=#20202020 

270 IN."LETTER "'S$Z 

280 X=X+1;N=#2E 

290 IF M>0 T.?#81EB=N 

300 IF Mt T.?#81TEC=N 

310 IF M>2 T.?#81ED=N 

320 IF M>3 T.2#81EE=N 

330 IF M>4 T.?#81EF=N 

340 IF M>5 T.?#81FO=N 

350 IF M>6 T.‚2#81F1=N 

360 IF M7 T.?#B1F2=ÂN 

370 IF M>8 T.?#81F3=N 

IAN IF MQ T.2#81F4EN 
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390 V=?2#8021 
400 IF V=A T‚?#81CB=zV 


410 IF V=B T.?#81CC=V 
420 IF V=C T.2#81CD=V 
430 IF V=D T.?#81CE=V 
440 IF V=E T‚?#81CF=V 
450 IF V=F T‚?#81D0=V 
460 IF V=G T,2#81D1=V 
470 IF VaR T.?#81D2=V 
480 IF V=I T.?#81D3=V 
490 IF VzJ T.?#81D4=V 
500 P.'' 


510 IN."WEET U HET WOORD "$Y 
520 IF $Y="NEE" T‚G. 220 

530 JA" T.G. 550 

540 P.$11;G.510 

550 IN."WAT IS HET WOORD "$W 





560 IF $W=$R T.P.''"“U HEBT HET IN "X" BEURTEN"''';G.620 
570 P."HET Is FOUT"! 
580 IN."WILT U VERDER "su 


590 IP $U="NEE"T,G.680 

600 IF $U="JA" T.G.220 

610 P,$11;G,580 

620 !#80E0=#20202020;!#80E4=#20202020; !#BOE8=#20202020 
630 !'#B0EC=#20202020; !#BOFO=#20202020 

640 IN."WILT U NOG EEN KEER “$U 

650 EF $U="NEE" T.G.680 

660 IF $U="JA" T.G.130 

670 P.$11;G.640 

680 P.$12''*"''"" + TOT. ZIENS +++"! 
690 END 





sen DOBBELSTEEN werker 


10 REM DOBBELSTEEN 

20 REM GEBRUIK JOSBOX 
30 REM: TINY VERSCHUREN 
40 A=ABSRND36 

50 GRMGD 

60 ?#E1=0 

70 CLEAR 3 

80 P.' 
90 IF 
100 IF 
110 IF 
120 IF 
130 IF 
140 IF 
150 P.'* o"'t'1;G.210 
160 P.” 
170 P.” 
180 P.” 
190 P.” o 
200 P." oo oon 
210 PLOTA4,36,182;PLOT5, 36,83;PLOT5, 84,83; PLOT5,84, 182 
220 PLOT5S,36,182;PLOT4,40,175;PLOT5,80,175;PLOTS,80, 90 
230 PLOTS5,40,90;PLGTS,40,175;PLOT4,36,182;PLOT5,40,175 


bd dd 


bnn nk 


aunt 





leas NTEKK E 


240 PLOT4,84,83;PLOTS,80,90;PLOT4, 36,83; PLOTS, 40,90 
250 PLOT4,84,182;PLOTS,80,175 
260 P‚” VOLGENDE WORP"! 

270 P."DRUK SPATIEBALK"' 

280 P.$21 

290 DIM P(-1} 

300[;JSR#FFE3 

310 STA#OO90 

320 RTS; } 

330 LINK TOP 

340 P.$6 

350 IF $(2#0090) = #20 T.G.40 
360 END 


zeten BASICTEKST PRINTER zomen 


10P. $12"tkkbasictekst printermke”!! 
20IN. "AANTAL TEKENS PER REGEL="T 
2DIMOS 
ZOIN.' "REGELS AANVULLEN" $0 
GBIN.” "AANTAL REGELS PER BLZ. ="R 
SBIN.’ "STARTADRES TEKST="S 
GBO=1E=S5P. $21$2° 
7avo 
BEK=G; BD: GOS. r3 Lel IN=B+K 
8S5IFB=0; Bel 
SBI=CT-B-K) /Bs Je (T-B-KO XB 
ASIFI) LOR?O=H4AES I=05 J=0 
19BD0 
118IFS=#&D; S=8+5 
120IF?5) #20;P. $75:G.n 
13BP. * “sIFIJP." * 
148IFJIP.* "ys Jedi 
15@nS=S+isLet+13 U, LN 
168G=Q+1: IFO RIP. $ISE! "nieuw blad aub"”"$21$2;LI. #FFES:Q=i 
1785=EP. ° 
180U. (5-2) #1F 
19DP. $3$6" "KLAAR"" * GEND 
288rD0 
Z1GIF?E) &D3G. Oo 
Z21SE=E+S 
2IEIF?Oe4E OR?LE-23IH7F EU, tt Ra 
ZITIF2E#2OIFE?L=ADIE=ENN FU. LR. 
2200A=0: C=@ 
230sIF?E=#20IA=AHIFE=E+I sG. 5 
24OTIFE?C) #20; C=C+15G. t 
25OIFA+B+E+K T5U. 14 R. 
260B=B+AF KKH EZERC 
278U. B 
Z0ODIT PROGRAMMA PRINT TEKSTEN 
310ZOALS DIT ZONDER DE REGELNUMMERS UIT EN NEGEERT DE RETURNS. 
32BDE REGELLENGTE KAN ZELF BEPAALT WORDEN EVENALS OPVULLEN TOT 
33DDE RECHTERKANTLIJN. 
350 
ZEBEEN REGEL ALS 358 (1 SPATIE NA NUMMER) FORCEERT EEN NIEUWE 


SIOREGEL. 
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sk SPLITSCREEN maer 


B REM SPLITSCREEN 2-1" 84 

18 REM ROB VAN DORT 

28 REM DIT PROGRAMMA BEVAT DE ASSEMBLER-ROUTINES OM HET 
38 REM STANDAARD ATOM-SCHERM IN EEN BOVEN- EN ONDERSCHERM 
40 REM TE VERDELEN 

SQ REM BIJVOORBEELD TE GEBRUIKEN BIJ KOMMUNIKATIE TUSSEN 
60 REM TWEE ATOM'S 

70 REM DE SCHERMEN SCROLLEN AUTOMATISCH EN ONAFHANKELIJK 
88 REM VAN ELKAAR 

390 B=8UDOIREM STARTADRES BOVENSCHERM 

198 D=#E10D:REM STARTADRES ONDERSCHERM 

118 DIM CCC19), A54) 

128 FOR I= TO 19:CCCID=HFFFFSNEXT I 

130 CC(1) #45 REM BOVENCURSOR 

148 CCC2) =S; REM ONDERCURSOR 

158 T=#SBIREM SAVE ACCU 

168 S-#9i;REM SCHERMPOINTER: O=BOVEN: Z=20NDER 

178 WetSIsREM KORTE DUUR SAVE X-REGISTER 

188 Y=WIEIREM SAVE Y-REGISTER 

198 Xe#37;REM SAVE X-REGISTER 

208 

210 DIM LL C43) + HHC4D) 

228 FOR Iz@ TO 4BILLCID=HEFFFSHHCID=KFFFFINEXT I 

238 

248 PRINT $12$21;REM SCHERM UIT 

258 FOR Ii TO 2 

268 P=#702A: REM STARTADRES MACHINECODE 

278 

280:LLG \INITIALISATIE 

238 LDAAI2;LDXAO 

39B:LLi STA B, X3STA Os XsDEXIBNE LL1 \WIS DE SCHERMEN 

318 STX CC1ISTX CC2 \CURSORS LINKSBOVEN 

520 LDA B, X;EORA#SGISTA B, X 

358 LDA O0, X:EORA#SOISTA Or X 

548 RTS 

358 

36B:CC@ \INVERTEER CHAR ONDER CURSOR:EURSOR NAAR X-REGISTER 

578 PHAISTX W 


zen LDA SIBNE CC3 

538 LDX CC1:LDA B, X3EORA#BOISTA B, Xs PLAILDX WIRTS 
408 2CC3 LDX CC2:LDA OD, XSEORAHBOISTA Os XIPLAILDK WIRTS 
418 

428:CC4 \CURSOR VAN JUISTE SCHERM NAAR X-REGISTER 

438 PHA 

440 LDA S;BNE CCS 

458 LDX CCisPLA:RTS 

&69 :CCS LDX CC2: PLA; RTS 

478 

4E@:CCE \X-REGISTER NAAR JUISTE CURSOR 

434 LDY S:BNE CC7 

5e STX CC1:RTS 

518 :CC7 STX CC2:RTS 


SN 





Ri 1 NTL N EN RUNM AGR 
S30:CCB \ACCU NAAR JUISTE SCHERM, X 


548 LDY S;BNE CC3 

558 STA B, X;RTS 

568 :CCS9 STA 0, Xi RTS 

578 

SEQ:CT1® \SCROLL JUISTE SCHERM 

5 PHAGSTX W 

628 LDA S;:BNE CCT11 

518 \SCROLL BOVENSCHERM 

628 LDXA52 

639 zLL3 LDA B, X;STA B-52: X4 INXIBNE LLJ 

648 LDAAS2ILDXA224 

659 ziLá4 STA B, Xs INXSBNE LL4 \ONDERSTE REGEL MET SPATIES 
668 PLASLDX WRTS 

678 rECLí \SCROLL ONDERSCHERM 

588 LDxXA32 - 

639 :LL6 LDA O:X;STA 0-32: Xs INX3BNE LLG 

788 LDRAS2ILDXS224 

718 :HHS STA 0, Xs INXSBNE HHS \ONDERSTE REGEL MET SPATIES 
725 PLA:LDX WiRTS 

758 

748 \ENTREE PRINTCHAR ROUTINE 

75@ 

76@:LL7 STX XsLDXRBISTX S:JMP LL27 \ASCII NAAR BOVENSCHERM 
17®sLL8 STX KrLDXA2ISTK S \ASCII NAAR ONDERSCHERM 
788 

798:LL27 STA T \BEWAAR ACCU 

89 STV #96 \BEWAAR Y-REGISTER 

818 CMPA2:iBNE LL9 \ETRL-B \PRINTER RAN 

eze NOP; NOP:NDPIJMP LL26 \zie opmerkins 
830:LL9 CMPASIBNE LL1G \CTRL-C \PRINTER UIT 

848 NOP:NOP;NOP; JMP LL26 \zie opmerking 
85O:LLiD CMPSG:BNE LLil \CTRL-F \SCHERM AAN 

KEIN JAP LL2E 

B70:LL1t CMPA7;BNE LLI2 \CTRL-G \BELL 

888 JSR4FDLAS JMP LL2E 

89B:LL12 CMPQSIBNE Li13 \CTRL-H \BACKSPACE 

300 JIER CC4:CPXAOBEG HHE 

18 JSR CCB:DEXIJSR CC65JMP L125 

328 sHHG JSREFDIAFJMP LL26 

30sLL15 CMPOSFBNE LL14 \CTRL-I \HOR. TAB 

IAB JSR CC4A:CPX9255:BEG HH4 

350 JSR CCA3INX:JSR CC6IJMP LL25 

58 3HH4 JSR CC1® \SCROLL 

378 JSR CC4FTKXASANDBZ24:TAXS ISR CCEIJMP LL2S 
S8OrLt 14 CMPA1O:BNE LL1S \CTRL-J \LINEFEED 

398 JSR CC@ 

1020 JSR CC4; TXAICMPR223: BES HHI1 

1a18 ADCAS2:TAXIJSR CEESJMP LL2S 

1029 tHH1 JSR CC1OIJMP LL2S \SCROLL 

1D50:LLIS CMPA11:BNE LLIG \CTRL-K \VERT, TAB 

1240 JSR CC4$EPX952: BCC HH7 

1859 JSR CCB:TXA:SECHSBCRI25TAXIJSR CCE: JMP LL2S 
18EG 2HH7 JSRAFDIAIJMP Li26 

197D:LLIE CMPO12:BNE Lt17 \CTRL-L \WIS SCHERM 

BEG LDASE2:LDXAB 


10938 2HH3 JSR CCTCE:SDEXSBNE HHS 


INTI 


1189 
111BzlLi7 
1128 
1130 
1148:LL18 
1158 
1168:tL13 
1179 
1188 
119B:LL20 
1200 
1218:Lt21 
1228 
1258 
1248 
1258 





EN EN RUNNEN MAAR BCORN 





JSR CC6IJMP LL2S 

CMPA13:BNE LL1B \CTRL-M = RETURN 

JSR CC@ 

JSR CC45TXRIANDA2245 TAXI JSR CCESJMP LL2S 
CMPA21:BNE LL19 \CTRL-U \SCHERM UIT 
NOPsNOPINOP: JMP LL26 \zie opmerking 
CMPASB:BNE LL2G \CTRL-r \CURSOR HOME 
JSR CC@;LDXAB: ISR CCEIJMP LL2S 


CMPAS2: BCS LL21 

JMP Li26 

CMP3127:BNE LL25 \DELETE 

JSR CC4:;CPX9B: BEG HHS 

JSR CC@:DEXILDRAS2IJSR CCBIJSR CCESJMP LL25 
3HHS JSR#FDIAFJMP LL26 


1250 zLL23 \HET TE PRINTEN CHAR IS EEN LEESBRAR ASCII TEKEN 


1278 

1288 

1290 

1300 

1318 

1320 

1538 
1348: LL25 
1550 

1368 
1370:LL26 
1388 
13902 
1498 NEXT 
1418 Bzá; 
1428 

1438 INPU 
1448 

1458 DIM 
1458 DIM 
1478 PRIN 
14880 
1490: DDO 


CLCIADCHS2IBMI LL2 \ZET ASCII OM 

EORASE \NAAR BEELDSCHERMCODE 

:LLz 

JSR CC4:JSR CCB:INXSBNE LL24 \PRINT :CURS.NAAR RECHTS 
JSR GC1@IJSR CC4: TXAFANDA2245 TAX \SCROLL:CU. START 
*LL24 JSR CCÉ 

\AFSLUITING 

JSR CCá4 

JSR CCO \INVERTEER CHAR. ONDER CURSOR 


LDX XsLDY YiLDA Te:RTS \ VERLAAT PRINT-ROUTINE 


1 
PRINT $6' "CODE VAN #"&LLO" TOT #"&P 


T * "DEMONSTRATIE GEWENST (J/N) "$A3IF ?A0OCH"J* END 


DDC6)FOR Ie@ TO SEDDCID=KFFFFINEXT 1 
Q5B) 
T $2isFOR Isi TO 2:P=Q 


\ENTRY DEMO 


1580 CMPSCH” “"tBNE DDS \GEEN SPATIE 
1518 LDASE73BNE DDt \LOCK IN 
1528 LDA#BOO1:CMPI127:BNE DD2 \SHIFT NIET IN 


1538: DDA 
1549 LDAS 
155%: DD2 


\INVERTED SPACE 
1285 JMP DD3 
\SPACE 


t55@ LDA9S2 


157@:DD3 


\PRINTCHAR 


1588 CMPSCH*' * 


1598 BCS 
1669 JSR 
i618 RTS 
1620: DD4 
1658 JSA 
1648 RTS 
1558: DDS 
166: DD6 
16707 


DDá4 \ALS LOWERCASE 

LL7 \PRINT OP BOVENSCHERM 

\KLAAR 

\LOWERCASE CHAR 

LL8 \PRINT OP ONDERSCHERM 

\KLAAR 

RTS \KLAAR MET DEMO 

LDASI SI JSR LLS:LDASIGI JMP LLS \LCR) DP ONDERSCHERM 
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1688 NEXT 1 

1652 

1780 LINK LLO:REM INITIALISEER SCHERMEN 

1718 ?#29B-DDEX2SE: #203=DDA/256: REM DDA IS NIEUWE WRCHVECTOR 
1728 PRINT *HhAatiL10o"' 

17358 LINK DDG 

1748 PRINT “IK: UW TROUWE ApTrOi Mm GEHOORZAAM NOG PRIaaMthom” 
1758 LINK DD6 

1768 PRINT “sniftspatieseeft! 

1778 PRINT “"eenseinverteerdesratie“:;LINK DD6 

1789 PRINT “terugnaarstandaardmetbreak" 

1798 LINK DD6 

1888 PRINT * “ALLEEN DE CURSOR-CONTROL EN GOPY TOETSEN" 
1818 PRINT * KUNT U NIET MEER GEBRUIKEN*"" 

1820 LINK DDO 

1830 END 

1848 

1850 opmerking: INDIEN BEDIENING GEWENST: VERVANG DAN 
1869 DE NOP-INSTRUCTIES DOOR JSRHFES2 

1878 

1888 sebruiksaanwijzins: 

1830 

1900 PRINTEN NAAR BOVENSCHERM: ASCII IN ACCU: JSR LL7 
1918 

18928 PRINTEN NAAR ONDERSCHERM: ASCII IN ACCU: JSR LLS 


aoe MATRIX WERMENIEWIJLDIGING ik 


1BREM MRTRIX 

2OREM (VERMENIGVULDIGING) 

SBREM E‚ KUCKARTZ 

4OREM WIMMERSTRAAT 37 

SOREM 5471 AA EYGELSHOVEN 

EBREM A4S-352543 
108DIMB1,Ct1:P.$1259=05?1E=CH?i7=CHFFFF/2S56 

118P. "SENTINEL ='0""" 

11SP.'" 36C="P.$115G, 120" 

128IN. “AANTAL RIJEN MATRIX t"OsIFO(=0sE. 
125$C="P, $1156, 138" 
13BIN. "AANTAL KOLOMMEN MATRIX 1"P3$Ce"P,$if56. 140" 
14BIN, “AANTAL RIJEN MATRIX 2“Qs$C="P, $11:G. 150" 
15GIN. “AANTAL KOLOMMEN MATRIX 2"R 
18GIFPO GP." "PRODUKT BESTAAT NIET"':G.115 
1ESDIMVS 

170DIMMMCO#P) , NNCGER) ‚ PP COR) 

180P, ’’ "EERSTE MATRIX :*'* 
19BI=1iiJz=ds$C="P, $1156. 192" 





191J=J+i 
192P. "CHI, "Je" GIN. AGMMCI&P-P+J) SAF IFJ (PG. 191 
193IFI(OrI=It1is J=0:G. 191 


208P."" "TWEEDE MATRIX z"""* 
218I=1:J=05$C="P. $113G, 212" 

211J=J+i 

212P. "C'I“, "JD" EIN. A3NNCIER-R+J)=AFIFJ (RSG. 211 
Z1ZIFIGsI=I+t7J=0;G, 211 

220DOP. “MATRIX 1 :""'tA=5 

2TAF. I=1TOO:P, ** 1TOPsP. MMCIP-P+JJ SN. iN. 3P.' 


FF. 
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24DP.*" “MATRIX 2 3"7° 

250F. I=1T0G:P. " ;F‚ J=1TOREP, NNCIER-R+J) iN. SN, 18=0 

26BIN.** "WILT U IETS VERANDEREN (J/N)“$B:IFSB="N"GG. à 
255$C="P."" 56. 270" 

27BIN." "WELKE MATRIX"M5IFMO LA. MO 2: P, “FOUTIEVE INVOER" 36, a 
280IN. “WELKE RIJ"S, "WELKE KOLOM*K, “NIEUWE WAARDE"N 
29BIFMel A.S(20 A, KleP;MM(S*P-P+IO ENIG. a 

SOBIFM=2 A. S(=Q A. KLERINN(SER-R+IO ENH. a 

S12P," "FOUTIEVE INVOER"";G, a 

328au, SB="N" 

SSOF. I= 1TOO3F. JE1TORIPPCIER-R+J) DiN. 3N. 

S40F, I=1T008F. J2iTOR3F. LeiTOP 

SSOPPCIR-RIJ) =PP CIR-RAJ) HMMCIEP-PALDENNCLGER-RAJ) IN. IN. 5No 
SEOP, "" "MATRIX 1 * MATRIX 2 2*'° 3025 

3570F. I=iTOO8P. * 3F. JE1TOR:P. PPCIER-R+J) IN. EN. 50=0 

SS8OP. "* ;LI. WFFESIP.$12; 02056. 115 


vete STATEMENT CODE zerken 


18 PROGRAM STATEMENT-CODE 

29 REM FRANS VAN HOESEL 

38 REM EN KLAAS DE RAAD 

4® REM INVOER CODE (BEGINADRES) , (EINDADRES) 

58 REM INSTRUCTION 7: 

58 REM BIJV JMP #&C558 

7OJ=31EtDIMLLJSF. I=GTOJSLLI=KFFFEN, DIM C10 

ee 

90P. $21:P=AIGOSUB a 

180P. $65P=AIGOSUB a 

110$T="CODE"s T2T+LENCT) 

128 Tel LO/2568#80:T?i=LLDK2SEFT? 2e BBI T=T+2 
138A=P3T! 1e 

14BEND 

158 

1E@aL 

178:LLT: BRK 

188: LO: LDA#BEs DRAGHB1 s BEOLL St LDXSHO:S 

180STX#04 3 JSRHC7EB: JSRHC2TI 5 JSRHC4EL 
ZOOILLZE4ISRHFFED: JSRHF7Dt 

21015 $P" INSTRUCTION"; P=P+L. P:C 
Z2ONOP 3 JSR#CDOIS;LDAAKD2; STRAHSIS: CPYAH4AFBPLELL 1 5D: DECHSS 
238: LL 13BLDYARAOT JSRHFB7E:LDARIOD, Ys CMPSHSSIBNELLIJI 
240SEC:LDA#LO1, Ys SLCHHSO: STAKBEFF ; JMPLL2E4 
250:LLIF1CMPI#2 Ss DNELL 1543 LDASHO1 : STANDE ; LDAARAD 
26DSTAHDS : LDRAKOD ; STAKDI ; JSRHTICE s LDKIHAT 
27Ö:LLIS2LDAKT2, XE STAN14D, Xt DEX BPLLLIE2; JMPLL2ES 
288: LLISEIMP4CSSC 

290:LL tE S4LDASRSB; STARL OO: LOKSKFF 
SOB: LLASSINX:LDAN1GG, X: STANIOL, X5 CPKORS7sBPLLLISS 
S1BCMPOHDD ; BNELL 1 553LDY9#0D 
S20:LL137LDALL26S: Ys STANI, Xs INX 5 INYsCPYANDB 
SSOBNELL1S71LDAD#4O: STANTSL : LDADHDI 5 STARS4AC 
Z4ALDAANISs JSRUFFEN JMPHC2DE 

SSDrLLILELDAAKDES JSRHFFEN 
SEBLDAETI1 : SEC HSBCHRAD ; STAHSI 

357@:LL2ESLDXARB4 

SBOIJSRKCSCHS ENXSLDYSNSG 3 ISRKCICE 5 LDXNDSS ST RDA 50 DAIRSZ 
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38: LLISBLDYA#OG 

4D: LL1IL DARI 4D, Y3 CMP CHS2)s Y3 BNELLLG1 3 INYsCPYRS5S 

A1GDNELL 135: LDANST: JSR#FBO2 3 LDANS2s JSRHFBB2 5 JSRIFFED : JSRHCSBA 
420: LL 141 JSRHFAGS; BNELL 1581 JMPLL2E4 

430: LL26353J 
A4OB=LLS1E:STRB,C5 SPE" II. "FPEP+L. Pi SPES HPEPeLENP-Gi 2P=13 
458 REM ASSEMBLEREN BOVEN #2718 LENP-6 WORDT LENP-S 

45@PeP+1 

4678 RETURN 


meren SODFTPRINT BUFFER ester 


18 REM SOFTPRINT-BUF 

<8 GOTO 278 

BOR VERSIE 1. Bte 

95 OF TPRINT-BUF 

12% DIT PROGRAMMA SIMULEERT EEN BUFFER VOOR DE PARALLEL-INTER- 
118 FACE, MET DEZE ROUTINE 15 HET MOGELIJK OPTIMRAL GEBRUIK TE 
128 MAKEN VAN DE PROCESSOR-TIJD. INDIEN DE AANGESLOTEN RANDAP- 
158 PARATUUR EEN “BUSY" SIGNAAL GEEFT, WORDT DE TE VERSTUREN 
148 DATA OPGESLAGEN IN EEN BUFFER, DEZE BUFFER WORDT GEDUMPT 20 
158 GAUW “NOT-BUSY" GELDT, RAAKT E BUFFER VOL, DAN ZAL DE PRO- 
153 CESSOR GEBLOKKEERD WORDEN, TOTDAT DE LEIDING WEER VRIJ GE- 
170WORDEN IS. DE BUFFER-GROOTTE IS AFHANKELIJK VAN DE BUFFERS 
18B IN DE RAND-APPARATUUR, 

139 
208 CC) COPYRIGHTS 1983 RESERVED BV haseroduct iens 
278 N=885REM BUFFER-GROOTTE 
258 Q=2800:REM PLABTS VAN ROUTINE 





230 EM KARAKTER-BUFFER 

308 EM BUFFER-NIVEAU-INDIKATOR 
E18 T-4SFFEIREM TIJDELIJK X-REGISTER 
320 

348 P,$21 


350 DIM LLC4) 

35@ FOR I=1 TO 2 

378 PeQ 

388 C - . 

30:LLB PHAISTX TIJSR HFESS:LDX BiSTA R, Xs INC B:CPX ON-15BEGLL2 
4DO:LL1 BIT #B8B15BMI LLá4 

&1OELL2 LDA RCO)SJSR HFEFBILDX A0 





42! L3 LDA R+1,X4S5TA R,XsINK:CPX BiBNE LLJ3DEC BiBNE ii 
USB:LL4LDX Ts PLASRTS 

4403 

458 NEXT 

4ED P.$E 


4679 ?#208=LLO: W20I=LLOEKFFFE/Z2SG:IREM DEFINIEER NIEUWE ROUTINE 
480 

50U REM oke INITIALISATIE® tn 

519 ?B=8 

528 END 

540 

550 REM TESTROUT INE 

565 PRINT $12%2 

572 S=#5COD 

SEB $S="HALLO, DIT IS EEN TEST: KIJKEN OF HET WERKT!,.* 
SIA 
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E8B FOR I=i TO S 

E1B FOR Jet TO 5 

520 FOR K=@ TO LENCS)-1 

638 REM TEST BUFFER OVERFLOW 
548 REM FOR Wei TO 23 WAIT;NEXT 
658 PRINT $(K?S) 

658 NEXT K 

678 NEXT J 

558 PRINT * 

698 NEXT I 

708 P‚ 43 

718 END 


sten DISK COPTIEEREN "eotketr 


18 PROGRAM COPY 

2e 

30 DEM LLE:FOR 1=8 TO BiLLCID =9ISINEXT 1 

4@ PRINT $21:G0SUBa 

50 PRINT $6 :GOSUBa 

EB END 

7öaP=t8208 

BOLLDA ALISTA HDIIJSR LL4ICMP O#1IB:EBNE LLO:RTS3 

SU:LLGILDA APISIJSR HEID2 

100LDA A&@DIJSR KEBOIILDA BHLAIJSR HESOIILDA AHASIJSR HESOS 
110 DA B#2AIJSR HEBBI:LDA AAISTA HABISTA HAI: 

120:LLisLDY A#4F:LDA ADISTA #ICISTA KABILDA AHZ4ISTA HD 
138LDA #ABISTA #AFICMP ARIDIENE LL2ILDY SOIJMP #E71S 
14@:LL25CMP A#4F:BNE LLS3LDY B#413 

158:LLIESTY KALILDA #AIISTA KAZ 

16@IJSR LL4+JSR HEGAZIJSR KEZ2EILDA #AIISTA HAZILDA HAB 
178STA #RIILDA ABR24ISTA #EDIJSR LL7IJSR HEGBDIJSR HE226 
188CLCELDA #A15ADC KABISTA HABIECC P+43INC H#AIIJMP LL13 
19@:LL4:LDA #DÍSBEG LLEIJSR LLS Is SP="ORIGINAL DISK" sPeP+15iC 
2B0DEC #D1 
218:LLSIJSR HFFEDSIJSR #FFES:PHAGJSR #E7SB3PLAERTS 
22B:LLEIJSR #E7SBIRTS; 
230:LL7sLDA #DIFBNE LLEIJSR LLG+ Is SP="COPY"tPaP+43 CE 
24BINC #D1IIBNE tLLS3 
250:LLSIJSR WEOIG:AISP="INSERT "tP=P+7:ENOP3JMP #EO1E 
2603 
278 RETURN 
288 
238 DIT PROGRAMMA KAN SCHIJVEN COPIEREN EN IS BEDOELD VOOR 
308 DOS-GEBRUIKERS MET 1 DRIVE, 
318 ER IS GEHEUGEN NODIG TOT #6708. HIERDOOR HOEFT MEN 
328 SLECHTS ZES KEER VAN SCHIJF TE WISSELEN OM DE COMPLETE 
338 SCHIJF TE COPIEREN. 
548 
358 HET PROGRAMMA MOET GE-ASSEMBLEERD WORDEN NAAR #8200 
3E8 EN HET MACHINETAAL GEDEELTE KAN OP DE UTILITY-SCHIJF 
370 WORDEN GE-SAVED. MET *COPY KAN DEZE ROUTINE DAN WORDEN 
388 OPGESTART. 


398 
AAA FRANS 
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s ete  PRIEMKDETALLEN ween 
Hierbij een prosramma: in P-CHARME BASIC seschreven, wat 
oriemsealten uitzoekt uit een array. De methode waarmee dit gebeurt 
staat in de Wiskunde bekend ats 'de zeef van Eratosthenes': de 


methode saat als volet: 

1. zet alle setallen van 1 tot n (de bovensrens) in een array 

2. schrap nu atte 2-vouden: behalve 2 zelf: daarna de 3-vouden: 
behalve Srny de S-vouden (4, een 2-voud was at seschrapt) enz. 
3. Ga bij een max. van 1988 door tot arte St-vouden. 

4. tees de oversebleven setalten uit. 

Het prosramma is GESTRUCTUREERD, en maakt (dus) soed sebruik van 


PROCEDURES. 


10 PROGRAM PRIEMGETAL 
15 REM R. van Drunen 


38 DIM RRC1000) 
58 PROC VULLEN), I 
568 FOR i=zi TO N 
7@ RRCIJ=I 


88 NEXT 
38 PEND 
188 


118 PROC PRIEM(N),I,T 
128 RRCi)=0 


158 T=2 

i4B DO 

158 FOR I=T+1i TO N 

158 IF RRCIJXT=O THEN RRCI) =8 
178 NEXT 

128 Do 

198 T=T+1 


22 UNTIL RRT) 0 @ 

218 UNTIL T> 34 

228 PEND 

238 

248 PROC SCHRIJFEN), IT 

258 Teg 

268 FOR I=4 TON 

278 IF RRCI) OG THEN P.RRCI) :T=TeL 


2830 NEXT 

238 P,‚"" "AANTAL GETALLEN: *T 
308 PEND 

318 - 

328 PROC INVOER C:A) 

338 P‚$12 


340 P, “=a===ePRIEMGETALLEN====e=" 
250 P. “GEEF DE BOVEGRENS* 


SEB DO 

378 IN.* "TUSSEN G EN 1809: "A 
588 UNTIL A2 AND ACt02D 

398 PEND 

408 


418 REM HOOFD PROGR. 
438 INVOER) 

448 VUL CX) 

458 PRIEM(X) 

468 SCHRIJF (X3 

488 END 


